This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial integration of libnet-1.0703.
[perl5.git] / lib / Net / demos / time
CommitLineData
406c51ee
JH
1#!/usr/local/bin/perl -w
2
3use blib;
4use Net::Time qw(inet_time inet_daytime);
5
6print inet_daytime('localhost');
7print inet_daytime('localhost','tcp');
8print inet_daytime('localhost','udp');
9
10print inet_time('localhost'),"\n";
11print inet_time('localhost','tcp'),"\n";
12print inet_time('localhost','udp'),"\n";
13