#!/usr/bin/perl -Tw

use EMAIL   =>  'user@yourdomain.com';
use SERVER  =>  'mail.yourdomain.com';

use CGI;
use CGI::Upload;
use Mail::Mailer;
use Net::SMTP;
use strict;

my $cgi = CGI->new;
my $upload = CGI::Upload->new( $cgi );

if ( $upload->mime_type('upload') eq 'image/gif' ) {

    my $mail = Mail::Mailer->new(
        'smtp', Server => SERVER
    );
    $mail->open({
        'To'    =>  EMAIL,
        'From'  =>  'root@yourdomain.com'
    });

    my $buffer;
    my @results;
    my $fh = $upload->file_handle('upload');
    while (read($fh, $buffer, 45)) {
        push (@results, pack("u", $buffer));
    }
    $fh->close;

    print $mail
        join "",
        "begin 600 " . $upload->file_name('upload') . "\n",
        @results,
        "end\n\n";

    $mail->close;
}

print STDOUT $cgi->redirect( $ENV{'HTTP_REFERER'} );
exit 0;
[download]

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'