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

##</code><code>##

Can't call method "MailFile" without a package or object reference at script.pl on line 36