Select Code to Download

sub parse_mail {
    my $mail = $_[0];
...

#    return @mailf;    
}

#!/usr/gnu/bin/perl -w
#
...
            }
return 1;
}

Where ever there is confusion to be had... I'll be there.