$Book->SaveAs({Filename        => "F:\\Assess\\Assessment.csv", 
               FileFormat      => 6, #xlCSV, 
               CreateBackup    => 0});


##</code><code>##

use strict;
use warnings;
use Win32::OLE;

my $fildir = "./";
opendir DIR, $fildir;
my @files = grep { /.xls/ } readdir(DIR);
closedir DIR;

foreach my $files (@files) 	{
	chomp $files;

my $Excel=Win32::OLE->new('Excel.Application');
	$Excel->{Visible}=0;
	$Excel->{DisplayAlerts}=0;
	my $Book = $Excel->Workbooks->Open("C:\\Monks\\$files") or die "Can't open file"; 
	my $sheet = $Book -> Worksheets(1);
	$sheet -> Range ('A:A') -> {NumberFormat} = "000";

my $nmlng = length $files;
my $nwnam = substr ($files,0,($nmlng - 4));

$Book->SaveAs({Filename        => "C:\\Monks\\$nwnam.csv", 
               FileFormat      => 6, #xlCSV, 
               CreateBackup    => 0});

	unlink ($files);
$Excel->Quit;
				}


##</code><code>##

Code,PropertyName,Unit Count,Unit Cost, Total Cost, TypeAbbreviation, Comments
1,First Account,5,10.00,50.00,cod,User text here
002,"Second Account, The",10,20.00,200.00,cod,More narrative
003,Third Account,5,20.00,100.00,cod,Another comment

##</code><code>##

my $Book = $Excel->Workbooks->Open("C:\\Monks\\$files") or die "Can't open file";

##</code><code>##

$Book->SaveAs({Filename        => "C:\\Monks\\$nwnam.csv",