Estimados.. tengo el siguiente código whois.pl:
En $datos{'userfile'} obtengo la información de la dirección del archivo... (no aparece la ruta entera... no sé si esto es relevante...
my $ruta = "/var/www/cgi-bin";# ruta a donde va a ir el archivo
my $nombre_en_servidor = $datos{'userfile'};
$nombre_en_servidor =~ s/ /_/gi;
$nombre_en_servidor =~ s!^.*(\\|\/)!!;
if($nombre_en_servidor =~ /\.txt$/){
open (OUTFILE, ">$ruta/$nombre_en_servidor") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte ...