How to split multiple worksheets into multiple files?

Dear all,
My source contains excel file with multiple worksheets. As part of project requirement I need to split all the worksheets into multiple files in ETL.

For Example,
Source File (A.xls) contains multiple worksheets B,C,D then Output should
B.xls
C.xls
D.xls

Can anybody help me out, how to achieve it by Perl script.

Thanks
Abhishek

This might be helpful
PERL: Split Excel Workbook to Indiv Excel files | Unix Linux Forums | Shell Programming and Scripting