Some Perl Idioms

• Lazy boolean evaluation

open FILE, "<", $somefile or die $!;

• Statement modifiers

print "DEBUG: $var" if $debug;