1 files changed, 16 insertions, 0 deletions
diff --git a/Perl/t.pl b/Perl/t.pl
new file mode 100644
index 0000000..eec912e
--- /dev/null
+++ b/Perl/t.pl
@@ -0,0 +1,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';
+# }