#!/usr/bin/perl

#print "argv is $ARGV[0]\n";
$a = `simple.pl $ARGV[0]`;
#print "a is $a\n";

open(T,"| Mail gcsfred\@magma.ca");
print T <<HTML;
Subject: teste da cifranet
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_904281223==_"
Status: R

--=====================_904281223==_
Content-Type: text/plain; charset="us-ascii"

ttt
--=====================_904281223==_
Content-Type: application/octet-stream; name="temp.gz";
 x-mac-type="477A6970"; x-mac-creator="477A6970"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="temp.gz"
HTML

print T $a;
print T <<HTML;
--=====================_904281223==_
Content-Type: text/plain; charset="us-ascii"


><><><><><><><><><><
Gustavo Frederico

--=====================_904281223==_--


HTML
close(T);

