#!/usr/bin/perl -s

print "bar!\n" if ($foo);