#!/usr/bin/perl -w
###############
$inbox = '/var/spool/mail/bazza';
$ls = `ls -1 ~/mail/*`;
@mailboxes = split('\n',$ls);
push @mailboxes, $inbox;
foreach(@mailboxes) {
  $nummsgs = `frm $_ | wc -l`;
  chomp($nummsgs);
  $nummsgs =~ s/ //g;
  $box = $_;
  $box =~ s/\/home\/bazza/~/;
  print $box.": ".$nummsgs."\n";
}