Another way to handle one-liners would be to simply have the If statment afterwards

print "foo \n" if $bar > 3;
[download]

and for short things, this also works ... I like it to help keep the scrolling/line count down.

for(my $I=0;$I<10;$I++) { print "foo \n" if $bar > 10 }
[download]

I leave the semi-colon off for one line loops, just for readability sake, but include it on multiline loops. Strict doesn't yell about it, and its just a personal style thing.

mbond