#!/usr/bin/perl
use warnings;
use strict;
use English;
use diagnostics;
use File::Copy;
use File::DosGlob qw(glob);
my $error=0;
copy($_,'Z:/mail_test') foreach glob 'E:/EudoraPro/*.mbx';
printf ("Mailboxes done!\n");
copy($_,'Z:/mail_test') foreach glob 'E:/EudoraPro/*.toc';
printf ("TOC's done!\n");