Select Code to Download

OUTPUT:

...
    Body-file: this/is/my/path/saved/2006-02-17/-3.pdf
    Recommended-filename: 01267-TXN-CC-000086475[1].pdf

# create a MIME::Parser object to
    # extract any attachments found within.
    my $parser = new MIME::Parser;
...
     # determine the path to the file in question.
      my $path = ($part->bodyhandle) ? $part->bodyhandle->path : undef
+;
     print "This is the $path \n";   #right here if it doesnt have the
+ brackets it will give the correct file name if it does it will come 
+back -1.pdf or some other count