#!/usr/bin/perl -w
srand;
open(LINES, "/home/anand/www/fun/TagLines");
@lines = <LINES>;
close(LINES);
print @lines[rand($#lines+1)];