#!/usr/bin/perl
print `copy /Y E:\\EudoraPro\\*.mbx Z:\\mail_test`;
print `copy /Y E:\\EudoraPro\\*.toc Z:\\mail_test`;