#! /usr/bin/perl

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

$rc >> 8;

exit $rc;