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

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

##</code><code>##

use autodie 'system';

# This works.
no autodie 'system';
  system('dir', 'test.pl');
use autodie 'system';

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