[Gike]

Помогите плз.
надо послать письмо с аттачментом прямо на почту (без посредников)
Скачал код скрипта , подставил свои данные а он , №@%& , не работает и ошибки не выдает
типа все ок но письмо не приходит.

#!/usr/bin/perl
#
#
use MIME::Lite;
use Net::SMTP;


my $from_address = '299792458@po4ta.xx';
my $to_address = '299792458@inbox.ru.ru';
my $subject = 'MIME Net::SMTP test';
my $mime_type = 'TEXT';
my $message = "Hello world!\n";

# Create the initial text of the message
my $mime_msg = MIME::Lite->new(
   From => $from_address,
      To   => $to_address,
         Subject => $subject,
	    Type => $mime_type,
	       Data => $message
	          )
		    or die "Error creating MIME body: $!\n";
		    
		    my $filename = 'a.txt';
		    my $recommended_filename = 'a.txt';
		    
		    # Attach the test file
		    $mime_msg->attach(
		       Type => 'application/zip',
		          Path => $filename,
			     Filename => $recommended_filename
			        )
				  or die "Error attaching test file: $!\n";



my $message_body = $mime_msg->body_as_string();


my $ServerName = "smtp.inbox.ru";


$smtp = Net::SMTP->new($ServerName) or 
   die "Couldn't connect to server"; 
   
   $smtp->mail( $from_address ); 
   $smtp->to( $to_address ); 
   
   $smtp->data(); 
   $smtp->datasend($message_body); 
   $smtp->dataend(); 
   
 
   $smtp->quit();