Help for this page

Select Code to Download

Select or download this

sub mailme {
        my $msg = MIME::Lite->new(
...
if ( -s $scratchtps ) {
        &mailme;
}