#! /usr/bin/perl

sub whatever
{
    system <<'SCRIPT';
date
echo "what about this?"
SCRIPT
}

whatever;

##</code><code>##

#! /usr/bin/perl

my $value = "testvalue";

sub whatever
{
    system "MYVAR=$value;" . <<'SCRIPT';
date
echo "arg1($MYVAR)"
echo "what about this?"
SCRIPT
}

whatever;

##</code><code>##

#! /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;

##</code><code>##

#! /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;