#!/usr/local/bin/perl

$Email = <>; chop($Name);
$Password = <>;
$Lines = <>;

while(<>) {
	push(@foo, $_);
}

print "Email address is $Email\r\n";
print "Password is $Password\r\n\r\n";

print "Message is:\r\n\r\n";
print @foo;



