Muchas gracias a quien pudiera ayudarme.
Mi .pl tiene:
Using perl Syntax Highlighting
- use Net::FTP;
- my $ftp = Net::FTP->new( "ftp.midominio.es", Debug => 0, Port => "mipuerto", Passive => 1, Binary => 1 ) or die("No se pudo conectar al servidor: $!");
- $ftp->login("miusuario","mipassword") or die("Login incorrecto: $!");
- $ftp->cwd("/");
- $ftp->put( "fichero_origen", "fichero_destino") or die "$0: ERROR: ", $ftp->message;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4