print "\nVerbinde Server..\n";
	while(!$alive)
	{
		print ".";
  		$pop1 = new Mail::POP3Client( 	USER     => 'user@googlemail.com',
                               			PASSWORD => 'passwort',
                               			HOST     => 'pop.googlemail.com');
		$alive = $pop1->Alive();
		sleep 2;
	}

	print "\nServer verbunden";
	$alive = 0;