#!/usr/bin/perl
use Net::FTP;
use strict;
# Dirección güeb de nuestro servidor
my $Ftpserver = "www.servidor.com";
# Login de nuestro servidor güeb
my $Login = "Usuario";
# Contraseña
my $Pwd = "Contraseña";
my $Salida = "/tmp/cita.html";
my $Fortune = "/usr/games/fortune";
my $Categorias = "sentimientos.fortunes amistad.fortunes arte.fortunes ciencia.fortunes filosofia.fortunes humanos.fortunes leydemurphy.fortunes libertad.fortunes poder.fortunes sabiduria.fortunes sentimientos.fortunes verdad.fortunes vida.fortunes";
my $Cita = `$Fortune $Categorias -s`;
#print $Cita;
#$Cita =~ tr/-{2}/ /;
#print $Cita;
open FSALIDA , ">".$Salida;
print FSALIDA <
$Cita
EOF
close FSALIDA;
my $ftp;
$ftp = Net::FTP->new($Ftpserver, Debug => 0)
or die, $ftp->message;
$ftp->login($Login, $Pwd)
or die, $ftp->message;
$ftp->put($Salida)
or die, $ftp->message;
$ftp->quit;