Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    print $OUTFILE2 "vers 2 produced this line\n" or warn "\t Problem 
+is with \$outfile2: $outfile2\n";
    close ($OUTFILE2);
}

F:\_Perl_\pl_test>F:\_Perl_\pl_test\930268.pl
      $outfile is now F:/_Perl_/pl_test/abcd.out
      Could not open *main::$OUTFILE using $outfile (dev/nul/xyz.out),
+ No such file or directory at F:\_Perl_\pl_test\930268.pl line 12.
...
10/08/2011  09:06a                  22 abcd.out  # content as expected
+ from the code above
10/08/2011  09:06a                  27 abcd2.out # "
               2 File(s)             49 bytes