#!/usr/bin/perl

use strict;
use lib '../lib';

use Mail::Box::Manager;
my $mgr = Mail::Box::Manager->new(autodetect => 'mh');

my $folder = $mgr->open(folder => "c");

if ($folder)
{
  print "$folder ".ref($folder)."\n";
  my $msg = $folder->message(0);
  print "$msg ".ref($msg)."\n";
  $msg->print;
  my $rpy = $msg->reply;
  print "$rpy ".ref($rpy)."\n";
  $rpy->print;
 }

