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