What's wrong?
    #!/usr/bin/perl -w
    use strict;
    my $filename = <STDIN>;
    open FH, $filename;
    my $line = <FH>;
    print "Line is $line\n";
    close FH;

Copyright 2003, Bri Hatch of Onsight, Inc.

Presented at SPUG, 2003.

Presentation created using vim and MagicPoint.