1*0Sstevel@tonic-gate# This is an example Hostname.pm. 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gatepackage Sys::Hostname; 4*0Sstevel@tonic-gate 5*0Sstevel@tonic-gateuse Net::Domain qw(hostname); 6*0Sstevel@tonic-gateuse Carp; 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gaterequire Exporter; 9*0Sstevel@tonic-gate@ISA = qw(Exporter); 10*0Sstevel@tonic-gate@EXPORT = qw(hostname); 11*0Sstevel@tonic-gate 12*0Sstevel@tonic-gatecarp "deprecated package 'Sys::Hostname', use Net::Domain" if $^W; 13*0Sstevel@tonic-gate 14*0Sstevel@tonic-gate1; 15