or download this
use strict;
my $var = 0; if ( $var ) { print "$var True\n"; } else { print "$var
+ False\n"; }
...
my $var5 = '1'; if ( $var5 ) { print "'$var5' True\n"; } else { print
+"'$var5' False\n"; }
my $var6 = "1"; if ( $var6 ) { print "\"$var6\" True\n"; } else { prin
+t "\"$var6\" False\n"; }
my $var7 = 1; if ( $var7 ) { print "\"$var7\" True\n"; } else { prin
+t "\"$var7\" False\n"; }