use strict;
use CGI qw(:standard);
use Cwd;
use Win32::OLE;
use Win32::OLE qw(in with);
$Win32::OLE::Warn = 3;   

my $application = Win32::OLE->new('Excel.Application',
'Quit') || die "Oops, cannot start Excel";