sub login() {
	print "logging in...\n";
	$pop3 = Net::POP3->new($host);
	LOGIN: if ($numb = eval'$pop3->login("$username", "$password"'){
		system("cls");
		print "logged in...\n";
		$status = 1;
		$numb =~ s/^0E0$/0/;
		print "you have $numb messages...\n";
		$variable = $numb;
	} else {
		print $numb;
		print "couldn't login, try again?[y/n] ";
		$answer = <STDIN>;
		if ($answer =~ /y/i) {
			login();
		}
	}
	goto PROMPT;
}