use strict;
no strict "refs";
use Mail::Sender;
my $f2dir = "C:\\windows\\desktop\\tmp";
print $f2dir;
my @names = <$f2dir\*.f2mail>;
print @names;