Simple mail sender on perl :)

MyMail.pm

package MyMail;

use common::sense;

use MIME::Lite;
use MIME::Words qw(:all);
use Data::Dumper;
use Carp qw(croak);

sub _defaults {
    return {
		from_name 	=> '',
		to_name		=> '',
		from		=> '',
		to			=> '',
		charset		=> 'UTF-8',
		subj		=> '',
		attach		=> '',
		attach_type	=> '',
    };
}

sub send_mail($) {
	my $args = shift;
	my $params = {
		%{_defaults()},
		%$args,
	};

	utf8::encode($_) for (values %$params);
	
	return undef unless $params->{to} && $params->{data};

	my $from = qq{"$params->{from_name}" <$params->{from}>};
	my $to = qq{"$params->{to_name}" <$params->{to}>};	
	
	for (qw{ from_name to_name subj}) {
		$params->{$_} = encode_mimeword( $params->{$_}, 'Q', $params->{charset} );
	}
	
	my $msg = MIME::Lite->new( 
		From		=> $from,
		To			=> $to,
		Subject		=> $params->{subj},
		Type		=> 'text/plain; charset='. $params->{charset},
		Encoding	=> 'quoted-printable',
		Data		=> $params->{data},
	);

	if (length $params->{attach} && length $params->{attach_type}) {
		croak "Can't read $params->{attach}" unless -r $params->{attach};
		my $file = $params->{attach_filename}? $params->{attach_filename}: $params->{attach};
		$file =~ s{.*/}{};
		$msg->attach(
			Path		=> $params->{attach},
			Type		=> $params->{attach_type},
			Filename	=> $file,
		);
	}

	$msg->send;
}

1;