#!/usr/bin/perl

use strict;
use Email::Folder;
use Mail::Mailer;

my $email = '@gmail.com';
my $tag = 'Mail Tag';
my $folder = Email::Folder->new($ARGV[0] || die "No mbox supplied\n\nUsage: $0 mboxname\n");
foreach ($folder->messages){
    print $_->header("Subject").$/;
    my $mailer = new Mail::Mailer;
    $mailer->open({
        To => $email,
        From => $_->header("From"),
        Subject => "$tag " . $_->header("Subject"),
    });
    print $mailer $_->body;
    $mailer->close;
    print "Email with Subject: " . $_->header("Subject") . " sent\n";
}