use Win32;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use Win32::OLE;
use Win32::OLE::Const;
$Win32::OLE::Warn = 3; # die on errors...

$curr_time = time();
print $curr_time;
print "\n";
eval{
$Constant = Win32::OLE::Const->Load('Microsoft Excel');
$Excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) ||
die "Error launching MS Excel ".Win32::OLE->LastError(1);          
$Excel->{Visible} = 0;
die "You must provide the filename with path\n" unless @ARGV;
$Book = $Excel->Workbooks->Open($ARGV[0]); 
use Win32::API;
    Win32::API->Import("kernel32", "int GetCurrentProcessId()");
    $PID = GetCurrentProcessId();

print "\n\n $PID \n\n";
......
...