How determine email message size?

[Uriel Wittenberg]

Could someone please advise how to determine the size in KB of an email
message?

I currently have:

---------------------------
use Mail::Internet;
....
my $item = Mail::Internet->new(STDIN) ;
my $msgbodyref = $item->body();
my $msgKB = .06 * @{$msgbodyref} ;
---------------------------

However, this is fairly inaccurate. Is there a better way?

My objective is to detect spam containing large attachments.

Thanks,

Uriel



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]