#!/usr/bin/perl

    use Net::IMAP::Simple::SSL;
    use MIME::Parser;

    print "Content-type: text/html\n\n";

    $server = new Net::IMAP::Simple::SSL('xxx');
    $server->login('xxx','xxx');


    my $newm=0;
       $newm = $server->select('INBOX');

    if ($newm==0) {
      $server->quit();
      print "No New Messages.";
      exit;
      }

    my $outputdir = "./temp";
    my $parser = new MIME::Parser;
    $parser->output_dir($outputdir);


    for (my $i = 1; $i <= $newm; $i++) {

      my $entity = $parser->parse($server->getfh($i));
      my $from = $entity->head->get('From');
      my $subject = $entity->head->get('Subject');
      my $timestamp = $entity->head->get('Date');

      print "#$i $from / $subject / $timestamp<br />";

      for my $part ($entity->parts()) {
        print " / ".$part->mime_type;
        if ( $part->mime_type eq 'application/octet-stream' || $part->mime_type eq 'application/pdf' ) {
          my $filename = $part->bodyhandle->path;
          print " / $filename";
          }
        print "<br />";
        }
      $server->copy($i,'dump');
      $server->delete($i);
      }
    $server->quit();