use strict;
use Win32::OLE('in');

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my $res = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\default:Systemrestore") or warn "WMI connection failed.\n";

my $test = $res->CreateRestorePoint("New Restore Point", 0, 100) 
    or die "CRP failed with: $^E";

 print "$test";