imap biff in perl

imapbiff.pl

#!/usr/bin/env perl 
use Net::IMAP::Simple::SSL;
$| = 1;
my $server = 'imap.gmail.com';
my $user = 'YOU@gmail.com';
my $pass = 'PASSWORD';
my $imap = Net::IMAP::Simple::SSL->new($server);
$imap->login($user => $pass) || die "cannot connect";
my $messages = $imap->select('Inbox');
my $count = 0;
for my $msg (1..$messages) {
    $count++ unless $imap->seen($msg);
}
$imap->quit();
print $count . "\n";