sub mailme {
        my $msg = MIME::Lite->new(
           From    => 'EDM01 <root@edm01.ohnet>', 
           To     =>  'Derek Smith <dbsmith@ohiohealth.com>',
           Subject => "EDM Return Tapes",
           Data    =>"Hey here is your file!\n" );
             
           $msg->attach(Type     =>'image/gif',  #whatever the MIME type is
                 Path     =>"$scratchps",
                 Filename =>'scratchps',
                 Disposition => 'attachment'
                 );
        $msg->send;
        }

if ( -s $scratchtps ) {
        &mailme;
}