my $pop3 = Net::POP3->new('$host');
###############################
PROMPT: while ($var == 2) {
	print '#! ';
	$current_input = <STDIN>;
	if($current_input =~ /^login/) {
		&login;
	}
}
###############################
sub login() {
	print "logging in...\n";
	$pop3 = Net::POP3->new('$host');
	LOGIN: if ($numb = $pop3->login("$username", "$password")) { #line 25
		system("cls");
		print "logged in...\n";
		print "you have $numb messages...\n";
	} else {
		print $numb;
		print "couldn't login, try again?[y/n] ";
		my $answer = <STDIN>;
		if ($answer =~ /y/i) {
			goto LOGIN;
		}
	}
	goto PROMPT;
}