#!usr/bin/perl

use v5.8.0;

use warnings;
use strict;
use MIME::Parser;

my $parser = MIME::Parser->new();

$parser->output_under('/tmp');
my $entity = $parser->parse(\*STDIN);

if ( $entity->is_multipart ) {
        for my $part ( $entity->parts ) {
        
		my $head = $part->head;
                if ( my $filename = $head->recommended_filename ) {
            print "Attachment name: $filename\n";
        }
    }
}