#! c:/perl/bin/perl.exe
use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new("149.149.149.149", Debug => 0) || die "Cannot connect $@\n";