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

# This fails.
system('dir', 'test.pl');