Elegir una linea de un archivo texto con PERL en base a la fecha

Tenia un archivo muy grande de texto y alojado alli varias palabras en orden alfabetico con su significado. Me pidieron que PERL seleccione una línea del archivo cada dia. Asi que aqui esta la solución:

use strict;
open (FHANDLE, "diccionario.txt");
use vars qw($anyo  $fecha_unix $bla $dia_anyo $linea $base);

$bla=1;  
$fecha_unix = time ();
(undef, undef, undef, undef, undef, $anyo, undef, $dia_anyo, undef) = localtime ($fecha_unix);
$base = ( ($anyo+1900)-2009 )*52 + ( $dia_anyo - 310);
print "\n";
while ($linea=) {
  if ($bla==$base) {
    print $linea;
  }
  $bla++;
}
close(FHANDLE);