#!/usr/bin/Perl #### #!/usr/bin/perl #### open(FILE1,$file1); #### open FILE1, '<', $file1 or die "Cannot open '$file1' because: $!"; #### if (($filename eq "") || (defined $filename eq 'false')) {
## #!/usr/bin/perl ##
## open(FILE1,$file1); ##
## open FILE1, '<', $file1 or die "Cannot open '$file1' because: $!"; ##
## if (($filename eq "") || (defined $filename eq 'false')) {