#!/usr/bin/perl use strict; use warnings; printf "%b\n", !1; #### 0