#works on my laptop but not on desktop
use warnings;
use strict;
use Mail::Sender;

my $sender;

print "here 1\n";
open(my $DEBUG, ">>" , "SendMailDebug.txt")
                or die "Can't open the debug file: $!\n";
                
        $sender = new Mail::Sender {
                smtp => 'mysmtp',
                from => 'myaccount',
                auth => 'LOGIN',
                authid => 'myauthid',
                authpwd => 'mypassword',
                on_errors => 'code',
                debug => $DEBUG,
                debug_level => 4,
                timeout => 2,
        }
                or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
 
        print "here 2\n";
#### When it hangs it never displays text past this point #######
          
        $sender->Open({
                from => 'me',
                to =>'me@work',
                                subject => 'Sorry, I\'ll come later.'
                                
        })
                or die "Can't open the message: $sender->{'error_msg'}\n";
        

        print "here 3\n";

        $sender->SendLineEnc("I'm sorry, but thanks to the lusers,
                I'll come at 10pm at best.");
        $sender->SendLineEnc("\nHi, Jenda");
        print "here 4\n";
        $sender->Close()
                or die "Failed to send the message: $sender->{'error_msg'}\n";