Help for this page

Select Code to Download

Select or download this

Net::FTP=GLOB(0x82bce74)>>> STOR /private/myips
Net::FTP=GLOB(0x82bce74): Timeout at myip.pl line 43
put failed  at myip.pl line 43.

Select or download this

#!/usr/bin/perl
use strict;
...
    $ftp->quit;
    print "File sent!\n";
}