Select Code to Download

system('my_perl_script.pl', 'arg1', 'arg2');

my @cmd = $^X, '-w', 'my_perl_script.pl', 'arg1', 'arg2';
system( @cmd ) == 0
  or die "Couldn't launch @cmd: $! / $?";

C:\>my_perl_script.pl arg1 arg2

perl -w my_perl_script.pl arg1 arg2