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;