#!perl -l
sub foo {
  time;
}
foo() while 1;