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

my $bool = 1;
print Dumper !$bool;
print Dumper !!$bool;