use Digest::MD5;
use Digest::SHA1;
-(my $VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.4 $ ') =~ tr/[0-9].//cd;
(my $ME = $0) =~ s|.*/||;
END
unlink $tmp; # ignore failure
print "\nHere are the MD5 and SHA1 signatures:\n";
+ print "\n";
print "<#part type=text/plain filename=\"$tmp\" disposition=inline>\n"
- . "<#/part>";
+ . "<#/part>\n";
open OUT, '>', $tmp
or die "$ME: $tmp: cannot open for writing: $!\n";