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;

##</code><code>##

putting /runtime/images/rear_imgs_to_be_sent/003106100021189717183045100000000000000000.tif as 003106100021189717183045100000000000000000.tif
Net::FTP=GLOB(0x83c71e4)>>> ALLO 984060
Net::FTP=GLOB(0x83c71e4)<<< 200 ALLO command successful.
Net::FTP=GLOB(0x83c71e4)>>> PORT 10,255,1,101,194,26
Net::FTP=GLOB(0x83c71e4)<<< 200 PORT command successful.
Net::FTP=GLOB(0x83c71e4)>>> STOR 003106100021189717183045100000000000000000.tif
Net::FTP=GLOB(0x83c71e4)<<< 150 Opening BINARY mode data connection for 003106100021189717183045100000000000000000.tif.
################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################
Net::FTP=GLOB(0x83c71e4)<<< 226 Transfer complete.
remote_file 003106100021189717183045100000000000000000.tif
Net::FTP=GLOB(0x83c71e4)>>> PORT 10,255,1,101,219,80
Net::FTP=GLOB(0x83c71e4)<<< 200 PORT command successful.
Net::FTP=GLOB(0x83c71e4)>>> LIST
Net::FTP=GLOB(0x83c71e4)<<< 150 Opening BINARY mode data connection for /bin/ls.
Net::FTP=GLOB(0x83c71e4)<<< 226 Transfer complete.
ftp dir listing...