#!/usr/bin/perl

$val = 10;
$t = ($val > 0);
$m += $t;
print $m;

# use strict;
# use warnings;
# use Net::Ping;
#
# my $p = Net::Ping->new();
#
# unless ($p->ping('google.com')) {
#     print 'dead';
# }