While I think that the direction given by jeffa above is your best bet, you can also attach files to emails using uuencoding which can be implemented very easily in your script - For example:

my $filename = 'test.jpg';

my @results;
my $fh = IO::File->new("$filename");
while (read($fh, $buffer, 45)) {
    push @results, pack("u", $buffer);
}
$fh->close;

print STDOUT "begin 600 ", $filename, "\n", join(@results, "\n"), "end
+\n\n";
[download]

As jeffa pointed out though, check out tachyon's A Guide to Installing Modules.