my $scratchtps="/usr/local/log/sctps"; sub mailme { my $msg = MIME::Lite->new( From => 'EDM01 ', To => 'Derek Smith ', Subject => "EDM Return Tapes", Data => $scratchtps ); $msg->send; } if ( -s $scratchtps ) { &mailme; }