#!/usr/bin/perl -s
if ($foo eq 'bar'){ print "true\n" }
if ($foo){ print "woo\n" }
print "woo-hoo\n" if $foo eq 'bar';
print "woopty-doo\n" if $foo;