perl -le"sub f{ \my $x } print f() for 1..10;"