Help for this page

Select Code to Download

Select or download this

!/usr/bin/perl

...
    $ftp->put($file) or die "$@\n";
}
$ftp->quit;