#!/usr/local/bin/perl -w

if ("0"){
    print qq("0" is true\n);
}else{
    print qq("0" is false\n);
}
if ("00"){
    print qq("00" is true\n);
}else{
    print qq("00" is false\n);
}