Send Mail , perl

[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();

[EvroStandart]

А маил вообще есть на этом компе? Или пытаешся из перла без майлсервера отправить?

[Gike]

пытаюсь из перла без майлсервера отправить

[EvroStandart]

Майлсервер должен быть инсталирован в системе и вебсервер должен быть настроен на работу с ним.
Если я это правильно понял

[Gike]

немного разобрался
теперь проблемы с аттачментом
письмо доходит , но в таком виде (a.txt сменил на 1.jpg)

This is a multi-part message in MIME format.

--_----------=_1096361458173200
Content-Disposition: inline
Content-Length: 13
Content-Transfer-Encoding: binary
Content-Type: text/plain

Hello world!

--_----------=_1096361458173200
Content-Disposition: inline; filename="1.jpg"
Content-Transfer-Encoding: base64
Content-Type: image/jpg; name="1.jpg"

/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAKAAA/+4ADkFk
b2JlAGTAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBcS
FBQUFBIXFxscHhwbFyQkJyckJDUzMzM1Ozs7Ozs7Ozs7OwENCwsNDg0QDg4Q
FA4PDhQUEBEREBQdFBQVFBQdJRoXFxcXGiUgIx4eHiMgKCglJSgoMjIwMjI7
..........
..........
..........
dVPtsM2MSWIJDRHVH9I01FYXLTmcTkKjqz4twZQZ3rYgwlp7+d66uo5AnGPc
LAgAAwbmxGnYjWjQeJsbTqFNg1zcV1dQpEC7EZJFnVTYQZCkGCsz0qd6QTlU
KrEiYHU+n1RG0m1dXVaAH+l/y026dP8AzV1dXUwP/9k=

--_----------=_1096361458173200--