#!/usr/bin/perl # # Print random line # $file = $ARGV[0]; open (FILE, $file); $_ = ; srand; rand($.) < 1 && ($line = $_) while ; print $line; close (FILE);