Select Code to Download

#!/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')) {