#!/usr/bin/perl -w
use strict;
open (MBOX1,"/root/james") or die "unable to open mailbox : $!";
open (MBOX2,">>/var/mail/james") or die "unable to append to mailbox : $!";
select MBOX2;
while (<MBOX1>) {
    print;
}