#! /usr/bin/perl;
use Mail::Audit;
my $folder = "/home/me/mail/toForward";
my $item = Mail::Audit->new;
my $subject = $item->subject();

    my ($hour, $wday) = (localtime)[2,6];
    if ($wday !=0 and $wday !=6         # Not Saturday/Sunday
        and $hour > 9 and $hour < 18) { # Between 9am and 6pm
        
        $item->resend('archive@theoffice.com');
        # resend is the only action
        # which doesn't end the program.
    }