#!/usr/bin/perl -w
use MIME::Lite;

$msg = MIME::Lite->new(
From => 'some@address.com',
To => 'you@address.com',
Subject => 'your db backup',
Type => 'text/plain',
Data => "Attached you will find your database backups for today.");
$msg->attach(Type=>'application/x-tar',
Path =>"sqlbackup.tgz",
Filename =>"sqlbackup.tgz");

$msg->send;