Select Code to Download

    use Win32::OLE qw(in with);
    use Win32::OLE::Variant;
...
                $ex = Win32::OLE->new('Excel.Application', sub {$_[0]-
+>Quit;})
                        or die "Oops, cannot start Excel";
            }