#!/usr/bin/perl

$new = 0;
$old = 0;

open(MAIL, "mailcheck|") or die "Couldn't run mailcheck";
while (<MAIL>) {
    /(\d+) new/ and $new = $1;
    /(\d+) saved/ and $old = $1;
}
close(MAIL);

$total = $new + $old;
print("email: $total");
if ($new > 0) {
    print("($new)");
}