#!/usr/bin/perl -w 

use strict;

my $results = exec("ls", "-al", ".");
print <<END;
###########################
\$results \= $results
###########################
END