perl -e '$empty = (); print ("hi there\n") if \!$empty;
__END__
hi there