#!/usr/bin/perl

<>; 
 
use Mail::Internet; 
use DBI; 
 
$msg = Mail::Internet->new([ <> ]); 
 
$from = $msg->get('From'); 
 
$msg->combine('To'); 
 
$to = $msg->get('To'); 

$subject =  $msg->get('Subject'); 

$body =  $msg->('Body');  #doesn't work