Select Code to Download

#!/usr/bin/perl -W
use strict;
...
my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);