my $pop = Net::POP3->new($server); 
	die "\nCouldn't connect to the server.\n\n" unless $pop; 
	my $num_messages = $pop->login($receiveruname,$password);