use strict; use Apache; use Apache::Request; use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); use HTML::Template; use Image::Size; use Mail::Sender; use Tie::IxHash; use Digest::MD5 qw(md5_hex); use IPC::SharedCache; sub Sender { print header; print "Mail sender 2"; my $sender = new Mail::Sender { smtp => 'localhost', from => 'your@address.com', to => 'mlampret@email.si', subject => 'Test MailSender v mod perlu', }; $sender->MailMsg({ msg => "I'm sending you the list you wanted.", }); } sub Main { Sender(); } Main;