#! /usr/bin/perl

$email = @ARGV[0];

$email =~ s/mailto://;

print `finger $email`;

if ($email =~ /([^@]+)@(.*)/) {
	($name,$host) = ($1,$2);

print `whois -h $host $name`
}

print "=======\ntelnet $host smtp\nexpn $name\nquit\n";