1*0Sstevel@tonic-gate#!/usr/local/bin/perl -w 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateuse blib; 4*0Sstevel@tonic-gateuse Net::Time qw(inet_time inet_daytime); 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gateprint inet_daytime('localhost'); 7*0Sstevel@tonic-gateprint inet_daytime('localhost','tcp'); 8*0Sstevel@tonic-gateprint inet_daytime('localhost','udp'); 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gateprint inet_time('localhost'),"\n"; 11*0Sstevel@tonic-gateprint inet_time('localhost','tcp'),"\n"; 12*0Sstevel@tonic-gateprint inet_time('localhost','udp'),"\n"; 13*0Sstevel@tonic-gate 14