my $foo = `true`;
my $err = $? >> 8;
system("echo Error code is $err >> /tmp/foo");

##</code><code>##

#!/usr/bin/perl
exit 0;