Perl перл

# # Simple subs to make it clear when we're testing for BOOL values # sub TRUE   {return(1);} # BOOLEAN TRUE sub FALSE  {return(0);} # BOOLEAN FALSE (Debugging Tools for Windows, ssindex.cmd)