Select Code to Download

#!/usr/bin/perl -w

...
$smtp->Text( @body );
$smtp->FileAttach( $fnameA, $fnameB );
$smtp->End();

# @(#) Multipart.pm - <DESCRIPTION>
#
...

1;