#! /usr/bin/perl -w # ignoring -T - just testing.

use strict;
use Mail::Box::Manager;

die "Usage: $0 message_number\n"
    unless @ARGV==1;

my $msg_num = shift @ARGV;

my $mailspool = "/var/spool/mail/baz";
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open($mailspool);

# Get message specified on command line.
my $message $folder->message($msg_num);

print $message;

$folder->close;