send_mail('subject', 'body');

sub send_mail {
    use Mail::Sender;

    my( $subject, $body ) = @_;

    my $sender = Mail::Sender->new({
on_errors => 'die',
            smtp => 'xxxx',
            from => 'dk@dk.com',
            fake_from => 'Ping Service'
        });
    $sender->MailFile(
        {
            to => 'diki@dk.com',
            subject => $subject,
            msg => $body
        });
    $sender->Close;
}