| Revision: | 1.1 |
| Committed: | Thu Jun 30 14:27:14 2005 UTC (21 years, 4 months ago) by root |
| Branch: | MAIN |
| CVS Tags: | PERL-5-8-7, HEAD |
| Branch point for: | PERL |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.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 |