#! /usr/bin/perl

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

whatever;