my $remote_file = $ftp->put($name) || die $ftp->message;
        print "remote_file $remote_file\n" unless $log_level < 3;
        print "ftp dir listing...", $ftp->dir(), "\n" unless $log_level < 3;
        print "ftp pwd...", $ftp->pwd(), "\n" unless $log_level < 3;