Select Code to Download

use warnings;
use strict;
...
    print $Progress "# Test $Percent\n";
}
close($Progress) or die $! ? $! : $?;

{
    my $run = 1;
...
    close($Progress) or $run and die $! ? $! : $?;
    print "Done.\n";
}