c:\@Work\Perl\monks>perl -wMstrict -le
"my $home = $ENV{'HOME'};
 print qq{>$home<};
 ;;
 my $zipfile = qq{$home/file.zip};
 print qq{>>$zipfile<<};
 ;;
 my $emailcmd = qq{/usr/bin/mailx uuencode $zipfile $zipfile -r -s};
 print qq{>>>$emailcmd<<<};
"
>IsWhereTheHeartIs<
>>IsWhereTheHeartIs/file.zip<<
>>>/usr/bin/mailx uuencode IsWhereTheHeartIs/file.zip IsWhereTheHeartIs/file.zip -r -s<<<