Select Code to Download

Select or download this

        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_leve
+l < 3;
        print "ftp pwd...", $ftp->pwd(), "\n" unless $log_level < 3;

Select or download this

putting /runtime/images/rear_imgs_to_be_sent/0031061000211897171830451
+00000000000000000.tif as 003106100021189717183045100000000000000000.t
+if
Net::FTP=GLOB(0x83c71e4)>>> ALLO 984060
...
Net::FTP=GLOB(0x83c71e4)<<< 150 Opening BINARY mode data connection fo
+r /bin/ls.
Net::FTP=GLOB(0x83c71e4)<<< 226 Transfer complete.
ftp dir listing...