1# This is an example Hostname.pm.
2
3package Sys::Hostname;
4
5use Net::Domain qw(hostname);
6use Carp;
7
8require Exporter;
9@ISA = qw(Exporter);
10@EXPORT = qw(hostname);
11
12carp "deprecated package 'Sys::Hostname', use Net::Domain" if $^W;
13
141;
15