Select Code to Download

use strict;
use warnings;
...
}

while (wait != -1) { };

die if -s $filename != -s $newfilename;

read $f, my $buf, -s $f or confess ;