use MIME::Lite;

MIME::Lite->send("smtp","mail.mine.com");

my $msg = MIME::Lite->new(
	From => 'some@thing.com',
	To   => 'me@mine.com',
	Subject => 'A Report',
	Type => 'multipart/mixed',
);

$msg->attach(
	Type =>'TEXT',
	Data => "This is your pretty report",
);

$msg->attach(
    Type     => 'text/csv',
    Path     => 'file.csv',
    Filename => 'file.csv',
	Disposition => 'attachment'
) or die "Error adding file \n";
$msg->send;