#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use Data::Dumper qw/ Dumper /;

my $bool = 1;
print 'aa' if defined !$bool;
print Dumper !!$bool;