#!/usr/bin/perl

#include "/usr/local/lib/perl/5.8.4/Mail/Transport/Dbx.pm";

#requires libmail-box-perl in debian
#and via CPAN Mail::Transport::Dbx

use Mail::Box::Mbox;
use Mail::Box::Dbx;
use Mail::Transport::Dbx;

 my $from = Mail::Box::Dbx->new(folder => $ARGV[0])
    or die "No input mailbox: '$ARGV[0]' or none given.\n";

 my $to   = Mail::Box::Mbox->new(folder => $ARGV[1],
    access => 'w', create => 1) or
    die "Cant output to mailbox '$ARGV[1]' or none given.\n";

 $from->copyTo($to);