#!/usr/bin/perl -w use strict; if ( (0) and (print "test\n")) { print "True\n"; }