my @file = <$fh>; print $file[int rand $#file]; [download]
In reply to Re^3: Using <> in the presence of @ARGV by EvanCarroll in thread Using <> in the presence of @ARGV by eibwen