Select Code to Download

use strict;
use warnings;
...
    print "sent $ARGV[0]\n";
    sleep($ARGV[1]);
}

use strict;
use warnings;
...
        print $line;
    }
}