Select Code to Download

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
...

# open Excel file
$Book = $Excel->Workbooks->Open("c:/users/david/desktop/RBLCopy.xls");

# print routine ################
print "\nPrint (y/n) ";
...
        }
    }
}