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 14