aiuto salvare in perl

[si.deangelis]

il codice effetua il salvataggio del file sul mio computer mentre io vorrei che salvasse un pagina html sul mio server non so come fare aiutatemi
sub sendOutput {

if ($FORM{'submit'} =~ /download/i) {

print "Content-type: download\n";

print "Content-Disposition: attachment; filename=page.html\n";

print "Content-Description: $FORM{'title'}\n\n";

} elsif($FORM{'submit'} =~ /source/i) {

print "Content-type: text/plain\n\n";

} else {

print "Content-type: text/html\n\n";

}

[shishii]

Ciao,

se devi salvare una pagina sul server devi raccogliere il contenuto della pagina stessa (il modo dipende da tanti fattori) e poi la tratti come un file di testo:

# poniamo che il sorgente della pagina è contenuto in $pagina

open (FILE, ">/path sul server/pagina.html") or die "Non posso scrivere la pagina. Errore $!\n";
print FILE $pagina;
close FILE;