[Perl] leer lineas aleatorias de un archivo.

[Alexandros googlemail]

Propicios dias;

Necesito sacar un grupo de lineas aleatorio desde un archivo; En
principio tengo todo el archivo linea por linea metido en un array y he
pensado en usar la funcion rand() pero no se como hacerlo. ¿quizas
mezclando sort() y rand()?
Como podreis comprobar soy bastante novato en perl y en programacion así
que acepto sujerencias :P

Por si no me he explicado bien pongo un ejemplo;
llamo a un archivo de texto que contiene x lineas y quiero sacar de el
25 lineas sin un patron definido, osea que queden por ejemplo la 67, la
45, la 112, etc... y que la proxima vez que ejecute el script pues coja
esas u otras lineas diferentes.

Bueno, espero que se entienda,
un saludo.