1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl -w use strict; use Test; use lib '../lib'; use lib 'lib'; BEGIN { plan tests => 1 } use Sys::Hostname::Long; my $hostname = hostname_long(1,1); ok($hostname ne ""); print "Your hostname = $hostname\n";