Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
if (defined $string) {print "defined\n"};
print "$string\n";
close FILE;

Select or download this

[joev@localhost test]$ ./file_handle.pl
defined

[joev@localhost test]$