perl -le '%hash = (1 .. 1000000); for (keys %hash) { print ">"; <STDIN> ; exit}'