Perl/t.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/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';
# }