perl -le"use Time::HiRes qw( time ); print time while <>