#!usr/bin/perl
                                                                               
use v5.8.0;

use strict;
use warnings;

use Mail::Internet;
use Mail::Field;
use MIME::Head;

my $mail = Mail::Field ->new([ <STDIN> ]);
my $header = $mail->head()->header_hashref();

my $field = 'Content-Type';

my ($Type, $subtype) = split('/', $field->mime_type);
 
 if ($Type eq 'multipart') {
        print $field->{'Content-Disposition'}->filename;
}