#!/usr/bin/perl
# whereami - get canonical hostname
#
# Rob Funk <funk+@osu.edu>  25-Nov-1996

use Sys::Hostname;
use Socket;

$hostname = hostname();

$ipi = (gethostbyname($hostname))[4];
$ip = join(".", unpack("C4", $ipi));
print "$ip\t";

$name = (gethostbyaddr($ipi, &AF_INET))[0];
print "$name\n";

__END__