#!/usr/bin/perl -w
use strict;
use Win32::OLE;

my $ex = Win32::OLE->new('Excel.Application', \&Quit);

$ex->{visible} = 1;

print "S1 .. "; sleep 10; print "Done.\n";

my $book = $ex->Workbooks->Add();

print "S2 .. "; sleep 10; print "Done.\n";

exit;