#!/usr/bin/perl -w
use strict;
my $email = '; cat /etc/passwd';

open (MAIL, "| /usr/lib/sendmail $email");

##</code><code>##

grep> cd pub
grep> more beer