Http upload на perl

Нужно залить файл(находящийся у меня на компе) на сервер через perl скрипт

Почитаи инфу в инете получился вот такой скрипт:

Code:

#!/usr/bin/perl 
use Net::HTTP; 
use IO; 
use MIME::Base64; 
$gbfile  = "C:\file.jpg"; 
open (GBFILE, "<"."$gbfile");  
@gb =<GBFILE>;  

my $s = Net::HTTP->new(Host => "127.0.0.1") || die $@; 
 $s->write_request(POST => "/eph/upload.php",  
 'User-Agent' => "Mozilla/5.0",  
 'Accept' => "application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,image/jpeg,image/gif;q=0.2,*/*;q=0.1",  
 'Accept-Language' => "ru-ru,ru;q=0.5",  
 'Accept-Encoding' => "gzip,deflate",  
 'Accept-Charset' => "windows-1251,utf-8;q=0.7,*;q=0.7",  
 'Keep-Alive' => "300",  
 'Connection' => "keep-alive",  
 'Cookie' => "",  
 'Content-Type' => "multipart/form-data; boundary=---------------------------154328737501",  

 "-----------------------------154328737501\r\n". 
 'Content-Disposition: form-data; name="fileupload"; filename="'."$gbfile".'"'."\r\n". 
 "Content-Type: application/octet-stream\r\n\r\n". 
 "@gb\r\n". 
 "-----------------------------154328737501\r\n". 
 'Content-Disposition: form-data; name="post"'."\r\n\r\n". 
 "Send\r\n". 
 "-----------------------------154328737501--\r\n"  ); 
  exit; 

Но скрипт файлы не заливает на сервер.

Помогите пожалуйста привести скрипт в работоспособное состояние.

 

Up