письмо

Скажите как или подкиньте пример:

имеется скрипт где письмо хранимое в файле ( vasya.pupkin@domain.com.12354321) в таком же виде как оно хранилось бы в /var/spool/mail/vasya.

Мне надо его переслать по какому-то адресу и туда же кому оно было адресованно в скрипте?

вот кусок из него....

$message = Mail::Message -> new;
	$message = Mail::Message -> read($rfc_as_string);

	$from = $message -> head -> get("From");
	
	chomp($from);

       	$subject = $message -> head -> get("Subject");

	$body = $message -> body;
       	$body = $message -> decoded -> string;


.........

$smtp = Net::SMTP->new("$smtp_server");

	$smtp -> mail($from);
       	$smtp -> to("$user\@$mydomain");

        $smtp -> data();
  	$smtp -> datasend("To: $user\@$mydomain\n");
       	$smtp -> datasend("Subject: $subject\n");
       	$smtp -> datasend("$body");
	$smtp -> datasend();


.....................


Но все проблема была , что html в письме не отображался правильно, 
тогда я добавил 

$content_type = $message -> head -> get("Content-Type");

и все потом стало лучше , но как быть с атачами, они не запихиваются в письмо и поле "Content-Transfer-Encoding" не читается ни из "head" ни из "body"

Или есть простой способ как из скрипта
послать письмо, которое хранится в файле.

Спасибо заранее.