#! /usr/bin/perl -w

use strict;
use Data::Dumper;

my @result = `sh << EOF;
pwd;
sleep 10;
date;
EOF`;

print Dumper(\@result);

##</code><code>##

$ ./678154.pl 
$VAR1 = [
          '/home/chad
',
          'Thu Apr  3 12:27:32 MDT 2008
'
        ];

##</code><code>##

 6204 pts/1    S+     0:00 sh -c sh << EOF;?pwd;?sleep 10;?date;?EOF