use strict; use warnings; use Tk; use MIME::Lite; my $MW = MainWindow->new(-background=>'white'); $MW->geometry('400x350+250+100'); my $msg = MIME::Lite->new( From =>'youremail@netzero.com', To =>'youremail@email.com', Subject =>'Helloooooo, USER!', Data =>"This is a test email from my Perl/Tk program. Enjoy!" ); $MW->Button(-text=>'Test Email to Parent', -background=>'green', -font=>'Arial 14', -foreground=>'blue', -command=>sub{$msg->send;} )->pack(-side=>'left', -anchor=>'w', -padx=>'50'); MainLoop;