Select Code to Download

       my $count = $msg->{Attachments}->Count;
        if ($count > 0) {
...
            }
            print UnixDate($msgdate,"%Y-%m-%d %i:%M:%S %p")," ",substr
+($msg->{Subject},0,30)."... $count attachments deleted\n";
        }