if (my $ex = Win32::OLE->new('Excel.Application')) {
    ...
}
else {
    # fehlermeldung
}