Problema con un codigo

[julruiz]

Hola a todos...

Tengo el siguiente código y no me funciona

open FILE,"pagina.txt";
&obtenerMeta();
close(FILE);


sub obtenerMeta {
#obtenemos todas las etiquetas meta
open META,">meta.txt";
my $i=1;
while(my $line=<FILE>) {
if(my @meta=$line=~/(\<meta.*?\>)/ig)
{
print META "$i\t$_\n" foreach @meta;
}
$i++;
}
close(META);
copiarMeta();
}

sub copiarMeta {
open PRUEBA,">p.txt";
open META,"meta.txt";
while(my $linea=<FILE>){
print PRUEBA "$linea\n";
}
close(META);
close(PRUEBA);
}


al ejecutar el codigo cuando llamo a obtenerMeta me
copia en el archivo meta.txt que encuentre en pagina.txt,
pero luego llamo a copiarMeta para que me copie el archivo
en uno nuevo pero no me funciona, y el archivo queda vacio..


¿que puedo hacer para corregir el codigo?