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