объясните идиоту, отчего не подгружает. с веба же вручную подгружает

0

0

#!/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 точно стопроцентно стопудово есть.