#! /usr/bin/perl

sub whatever
{
    system << "ARGS" . <<'SCRIPT';
if [ -n "@_" ]
then
        set @_
fi
ARGS
date
echo "what about this?"
echo $*
SCRIPT
}

whatever @ARGV;