#!/bin/perl
open(F,"baby3.txt");
while(<F>){
	$mailprog = '/usr/lib/sendmail';
	$recipient = $_;	
	open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
	print MAIL "Reply-to: webmaster\@ezenet.com (Kasra Meshkin)\n";
	print MAIL "Subject: Hello\n\n";
	open(S,"baby3.txt");
	while(<S>){
		print MAIL $_;
	}
	close(S);
	close(MAIL);
}
close(F)
