#!/usr/local/bin/perl

use strict;
use warnings;

use Config::Simple;
use Net::FTP;

my $success;

my %cnf;
Config::Simple->import_from(q{cnf/sw.cnf}, \%cnf);

my $ftp = Net::FTP->new($cnf{host}, Passive => 1)
	or die qq{cant connect: $!\n};
print $ftp->message;

$success = $ftp->login($cnf{login}, $cnf{pwd});
print $ftp->message;

$ftp->ascii;
#$ftp->binary;
print $ftp->message;


my $local = q{c:/www/032/docroot/test.html};
my $remote = q{032/docroot/test.html};
$success = $ftp->put($local, $remote);
print $ftp->message;