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
1 #!/usr/local/bin/perl -w
2
3 use blib;
4 use Net::Time qw(inet_time inet_daytime);
5
6 print inet_daytime('localhost');
7 print inet_daytime('localhost','tcp');
8 print inet_daytime('localhost','udp');
9
10 print inet_time('localhost'),"\n";
11 print inet_time('localhost','tcp'),"\n";
12 print inet_time('localhost','udp'),"\n";
13