#!/usr/bin/perl

$emailaddr = @ARGV[0];
($username, $domain) = split("@", $emailaddr);

open(PIPE, "dig MX $domain | grep MX | grep -v ';'|");

while(<PIPE>) {
        ($host, $n, $in, $mx, $n2, $mailhost) = split(" ");
        $mailhost = substr($mailhost, 0, -1);
        printf("$mailhost\n");
}

$url = "http://$mailhost/sig/?addr=$emailaddr";
printf("$url\n");
`curl "$url" -o "/tmp/$emailaddr"`;