$foo = "bar", print "DEBUG: $foo\n" if ($blah eq "blue");
[download]

-Blake
with tongue, firmly in cheek. ;-P