Help for this page
#!/usr/bin/perl -w ... if (defined $string) {print "defined\n"}; print "$string\n"; close FILE;
[joev@localhost test]$ ./file_handle.pl defined [joev@localhost test]$