Perl and Eudora

/dev/trash has asked for the wisdom of the Perl Monks concerning the following question:

Right now I have this snippet of code to backup my Eudora Mailboxes to a network drive.

copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx';
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';
[download]

It works great but I'd like to automate it so that when I close Eudora, the files get copied automatically. Will Win32::OLE interact with Eudora?