Help for this page

Select Code to Download

Select or download this

perl -e 'my $lines = 5; foreach ($lines) { print "foo\n"}'