Select Code to Download

use strict;
use warnings;
...
    open($handle, ">$name");
    return $handle;
}

    if ($read >= $fsize) {
        chomp($_ = <$in>);
...
        $out = nextfile($file, $fcount);
        print $out $/;
    }