perl -e 'print sub {my $x=5; do {print "."} while $x--}->()'