Here is a part of code that might help:

    use Win32::OLE qw(in with);
    use Win32::OLE::Variant;
    use Win32::OLE::NLS qw(:LOCALE :DATE);
    use Win32::OLE::Const 'Microsoft Office .* Object Library';
    use Win32::OLE::Const 'Microsoft Excel';
    use Win32::OLE::Const "Microsoft Graph 9.0 Object Library";

    my $vtfalse  =  Variant(VT_BOOL, 0);
    my $vttrue   =  Variant(VT_BOOL, 1);
    my $vtpagesw =  Variant(VT_I4, 1);
    my $vtpagest =  Variant(VT_I4, 999);

    eval {$ex = Win32::OLE->GetActiveObject('Excel.Application','Quit'
+)};
            die "Excel not installed" if $@;
            unless (defined $ex) {
                $ex = Win32::OLE->new('Excel.Application', sub {$_[0]-
+>Quit;})
                        or die "Oops, cannot start Excel";
            }
[download]

I'll continue trying to make it work today and I'll update later with my conclusions... if any.