#!/usr/bin/perl -w # программа, которая загружает локальные файлы fecam # на удаленный сервак по ssh use strict; use HTTP::Request::Common qw(POST); use LWP::UserAgent; use CGI qw(header -no_debug); my $test = "http://www.server.ru/fecam/up.html"; my $d="c:\\new_fecam\\fits"; my (@a,@res,@m); push @a => $_ while <$d\\*.*>; push @res, [splice(@a, 0, 3)] while @a; #foreach (@res){ my $req = POST $test, Content_Type => 'form-data', Content => [ FILE1 => ["launch_missle.jpg"], ]; my $res = LWP::UserAgent->new->request($req); #print header, $res->is_success ? $res->content : $res->status_line; #print $req->as_string; #} файл launch_missle.jpg точно стопроцентно стопудово есть.