Select Code to Download

        my $fh = new FileHandle("< $file");
        if (! $fh) {
...
        $fh->seek(0, 0);
        }

$line = <$fh>;