Select Code to Download

#!/usr/local/perl-5.6.1/bin/perl
use strict;
...
me@unixsystem:/tmp# ./fp.pl
open failed Died at ./fp.pl line 6.

use strict;
$|=1;
...
if ($@) {
  print "open failed $@";
}