my $ftp = Net::FTP->new($host, Passiv => 0, Timeout => 30, Blocksize => 2048);