#! /usr/bin/perl

my $rc = system ("sh", "-c", <<'SCRIPT', "one", "two", "three");
echo 'this is a test'
echo 'again'
echo "0($0) 1($1) 2($2)"
SCRIPT

$rc >> 8;

exit $rc;