IMAP New Messages Notification Script + XFCE4 Generic Monitor

Долго искал скрипт, позволяющий узнать пришла ли новая почта по IMAP.
Не нашёл. Решил сам написать. Получилось вот что

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

use Net::IMAP::Simple;

my $mailbox = 'Inbox';    
my $hostname = 'mail.domain.com';  	
my $username = 'user';   		
my $password = 'pwd';     		

# Connect to the Server
my $server = Net::IMAP::Simple->new( $hostname ) or die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n"; 
# Log on
die("Login failed: $server->errstr \n") if (!$server->login($username,$password));
# Open the Specified Folder
my $cty = $server->select( $mailbox );
# Start the new mail counting loop
my $count = 0;
foreach my $msg ( 1 .. $cty ) 
{
  if ( ! $server->seen( $msg ) ) { $count++; };
}
# Close the connection
$server->quit();
# Return result
if ($count) { print "New $count"; }
else { print "New 0"; }

Может кому и понадобится!
Я заживил скрипт с XFCE4 Generic Monitor и теперь вижу когда
у меня на сервере новая почта!