#Telnets to SASUX101 to send email 
print "Attempting to telnet into SASUX101 to email txt files\n";               
$t = new Net::Telnet (Timeout => 12000, 
            Prompt => '/\> $/');
$username = "user";
$passwd = "pass";

$email_g1 = "$email_list[0] $email_list[1] $email_list[2] $email_list[3] $email_list[4] $emails[5]  $me";
$email_g2 = " $email_list[6] $email_list[7] $email_list[8] $email_list[9]  $me";

	 $t->cmd("mailx -s 'usage' $email_g1 <test$date.txt");
	 $t->cmd("mailx -s 'usage' $email_g2 <test$date.txt");