Mi primer script en Perl

El lenguaje perl es un lenguje interpretado, el cual puede ser muy usando en tareas de adminitracion de sistemas, como manipulacion de archivos y procesos.

A continuacion les muestro un pequeño script que escribi hace algunos meses y que recibe como parametro un archivo de texto con una direccion url por linea, con el fin de descargar el archivo que se encuentre en esa url.

================
#!/usr/bin/perl

#se busca la url que debe existir en cada pagina
sub with_loop{
#Se abre en modo lectura (predeterminado)
open(IN, $_[0] );
#Comenzamos la lectura linea por linea
#y cada linea la mandamos como parametro a wget
while( $line = ){
open (COMM, "wget -c --progress=bar $line |" );
print COMM;
close (COMM);
}
close(IN);
}

#Comienzo del script, se verifican parametros
if( $#ARGV != 0 ){
print "usage: " . $0 . " \n";
}
else{
#Si el archivo existe y se puede leer
if (-r $ARGV[0]){
#Invocacion del metodo with_loop
do with_loop( $ARGV[0] );
}
else{
print "El archivo " . $ARGV[0] . ", no existe o no hay permisos de lectura\n";
}
}
===============

David por favor recuerdame cual era el otro script que se pretendia hacer, gracias.