#! /usr/bin/perl -w

use strict;
use Data::Dumper;

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

print Dumper(\@result);