Help for this page

Select Code to Download


  1. or download this
    use strict;
my $file;
open my $fh, "<", $file or die $!;
print "here\n";
  2. or download this
    use strict;
open my $fh, "<", $ARGV[0] or die $!;
print "here\n";
  3. or download this
    use strict;
open my $fh, "<", undef or die $!;
print "here\n";