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
## 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