1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';

my $args = 'hoge';

if ($args == 0) {
    print "$args is 0 !\n";
}
else {
    print "$args is not 0 !\n";
}