Hey all, Can anyone tell me where I am going wrong in the following? 
#!/usr/gnu/bin/perl -w
#
#
use strict;
no strict "refs";
use Mail::Sender;
my $f2dir = "/home/bradley/scripts/prog/names";
my @names = <$f2dir/*.f2mail>;

my $file;
foreach $file (@names) {
        if ( (! -d $file) && ($file =~ /\b\.f2mail/) ) {
                parse_mail($file);
                print ".";
        }else{
                print "Error with $file, $!";
                }
        }


######################################################################
+##########
# Begin Subroutines
#
# parse_mail parses the parameter file (*.f2mail) and submits the resu
+lts to
# Mail::Sender for smtp
######################################################################
+##########
sub parse_mail {
        my $mail = "@_";
        open (MAIL,$mail) || die "Cannot open $mail, $!";
                my @mailf = <MAIL>;
                chomp (@mailf);
        close (MAIL) || die "Cannot close $mail, $!";

        sender_mail(@mailf);

}

######################################################################
+##########
#
# sender_mail calls the Mail:Sender module and prepares for smtp
######################################################################
+##########
sub sender_mail {
        my @mailf = @_;
        open (BODY,$mailf[3]) || die "Cannot open $mailf[3], $!";
                my @body = <BODY>;
        close (BODY) || die "Cannot close $mailf[3], $!";
        rename($mailf[4],"$mailf[4]\.txt") || die "Cannot rename $mail
+f[4], $!";


        my $sender;
        ($sender = new Mail::Sender ({
                from => $mailf[2], smtp => 'localhost'})) || die "Send
+er error:
$sender, $Mail::Sender::Error!\n";
                ($sender->MailFile(
                {to => $mailf[0], subject => $mailf[1], msg => "@body"
+, file =>
$mailf[4]})) || die "Sender error, $sender, $Mail::Sender::Error!";

}

[download]
I run it, and everything seems to go fine, but I get no mail. My syslog also shows no record of a mail being submitted. Any help anyone could provide would be greatly appreciated. I'm also looking for some info on my coding... any suggestions on making it better? Thanks in advance, Bradley 
Where ever there is confusion to be had... I'll be there.

[download]

In reply to Mail::Sender question... again by Dalin

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.