#!/usr/bin/perl

$_ = <STDIN>;
chop;
$id = "";
$id = $_ if (/(.+@.+)$/);

print STDERR "No contact e-mail in id file\n" if (!$id);

print "To: $id\n";