or download this
use warnings; use strict; my $s;
$s = system q(cat), qw(nosuchfile); printf q(ret=0x%04x, err=>>
+%s<<%s), $s, $!, $/; $!=0;
$s = system q(xcat), qw(nosuchfile); printf q(ret=0x%04x, err=>>
+%s<<%s), $s, $!, $/; $!=0;
$s = system q(perl), q(-le), q(exit 0x13); printf q(ret=0x%04x, err=>>
+%s<<%s), $s, $!, $/; $!=0;
$s = system q(perl), q(-le), q(exit 0xFF); printf q(ret=0x%04x, err=>>
+%s<<%s), $s, $!, $/; $!=0;