Select Code to Download

#!/usr/local/bin/perl -w

...
$imap_con->quit();
print "login possible. \n";
exit;