Untested. Save attachments to $attachment_dir. 
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]
Boris

In reply to Re: Extracting attachments from mails with Net::POP3 by borisz
in thread Extracting attachments from mails with Net::POP3 by nisha

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.