Select Code to Download

my @args ;

...
   else {
      @args = @_ ;
   }

use IPC::Run qw(run harness);
...
#This will not work if you don't have command.com
my $h2 = harness "perl -v";
run $h2;