Select Code to Download

use strict;
my ($type, $server,$out,$in,@input,$total,$kbytes,$mbytes); 
...
    }
    print "Finished $type...\n";
}