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;