#!/usr/bin/perl

use strict;
use warnings;

$|++;

delete @ENV{qw(ENV BASH_ENV IFS PATH)};  # make safe!

use Net::FTP;

my $url = "ftp.*****.de";

print "Hello, FTPedWorld...\n";

my $ftp = Net::FTP->new($url, Debug => 1) or die "Cannot connect to $url: $@";
$ftp->login("1234567",'****************') or die "Cannot login ", $ftp->message;

$ftp->cwd("/httpdocs");
$ftp->binary;

$ftp->pasv;
my $ret = $ftp->put(".\\test.txt");

print "PUT Not supported\n" if !$ftp->supported('PUT');

$ftp->delete("test.txt");

$ftp->quit;

1;

__DATA__

__END__