use strict; use Spreadsheet::ParseExcel; use IO::File; use File::Copy;