use IPC::System::Simple qw(capture capturex system systemx run runx $EXITVAL EXIT_ANY);

# This works.
system('dir test.pl');