perl -e 'use Tie::File::GFF; tie my @arr,'Tie::File::GFF',"infile"; print $arr[int rand ($#arr)];'