#!/usr/bin/perl 
# Author : Igor Támara Patiño igor@tamarapatino.org
# Date : 08/04/2003
# This script is useful for extract an aleatory line from a text plain file
#
# Given to the public domain, you can use it for everything you want, it appreciatted that you 
# maintain my name in derived works.  But I do not take any responsability for what you do.

use strict;

open FILE, "/home/otro/igotam/public_html/jokes/administrador.txt" || die "Can't open file.";
my @lineas = <FILE>;
print "-- ",$#lineas+1," cosas que no quisieras escuchar de tu administrador de red"," --\n";
my $random = int(rand( $#lineas + 1 ) ); 
print " (",1+$random,"/",$#lineas+1,") ",$lineas[$random],"http://igor.tamarapatino.org/jokes/nomyadminplease.php\n"