#!/usr/bin/perl

use MIME::Parser;

my $p = MIME::Parser->new;

$p->output_dir( "/Users/brian/Desktop" );

$p->parse( \*STDIN );