#!/usr/bin/perl -s
if ($foo){ print "true\n" }