Select Code to Download

$msg = Mail::Internet->new([ <> ]);
$from = $msg->get('From');
...
           $array[9][1] = $_;
        }
}

$i++;
$array[9][1] = $body[$i];