receive();
	#sendmail();



sub sendmail {

	use Net::SMTP;
	use strict;


	my($mailhost,$absender,$empfaenger);

	$mailhost='HOST:25';
	$absender='postfach';
	$empfaenger='empfaenger@domain.de';

	# Objekt erzeugen

	my $smtp=Net::SMTP->new($mailhost);

	# Absender und Empfaegner

	$smtp->mail($absender);
	$smtp->to($empfaenger);

	# Beginne mit dem Senden des Kommandos DATA an den Server

	$smtp->data();

	# Sende nun die Daten an den Server

	$smtp->datasend('Test');
	#To: $empfaenger
	#Subject: Testmail

	#Test v.1

	#__END	

	# Stoppe das senden der Daten an den Server

	$smtp->dataend();

	# Baue nun die Verbindung ab.

	$smtp->quit();


}



sub receive {


	use Net::POP3;

	$username = 'test';
	$password = '123456';

    	# Constructors
    	$pop = Net::POP3->new('HOST');
    	$pop = Net::POP3->new('HOST', Timeout => 60);


    	if ($pop->login($username, $password) > 0) {
      		my $msgnums = $pop->list; # hashref of msgnum => size

				if($msgnums == ????????) {

							print "Juhu.";

						}

						else {

							print "Scheisse.";

						}


		


					foreach my $msgnum (keys %$msgnums) {

        		
						my $msg = $pop->get($msgnum);
						print @$msg;

						

        					$pop->delete($msgnum);

					}
      		

			
	}


    	$pop->quit;