use Carp;
use Email::MIME;
use File::Basename;
use Net::POP3;

my $server         = '...';
my $receiveruname  = '...';
my $password       = '...';
my $attachment_dir = '/tmp';

my $pop = Net::POP3->new($server);
croak "Couldn't connect to the server.\n\n" unless $pop;
my $num_messages = $pop->login( $receiveruname, $password );
croak "Connection trouble network password user ..."
  unless defined $num_messages;

for my $i ( 1 .. $num_messages ) {

  my $aref = $pop->get($i);
  my $em = Email::MIME->new( join '', @$aref );
  for ( my @parts = $em->parts ) {
    print $_->content_type, "\n";
    next unless $_->content_type =~ m(^application/octet-stream)i;
    my $filename = basename( $_->filename || '' );
    my $basefilename = $filename || 'UNNAMED';
    my $cnt = 0;
    while ( -e "$attachment_dir/$filename" ) {
      my ( $d, $m, $y ) = (localtime)[ 3 .. 5 ];
      $filename = sprintf( "%s_%04d%02d%02d_%04d",
                           $basefilename, $y + 1900, $m + 1, $d, ++$cn
+t );
    }
    open my $fh, ">", "$attachment_dir/$filename" or croak $!;
    binmode $fh;
    print $fh $_->body;
    $pop->delete($i);
  }
}
$pop->quit;
[download]

Thank You very much!!!!

The code you have so far bears no relation to your problem. With the Net::POP3 module, you can retrieve the mail from your server. You then need to parse out the attachments.

I recommend you first retrieve the mail into a local file for easier debugging and then write a program to parse attachments from the locally saved mail. MIME::Parser is a convenient module to parse the parts of a mail message, and the Mail and Email namespaces hold other MIME parsing modules.