#! /usr/bin/perl

my $value = "testvalue";

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

whatever;