how to use RegSrv32 to register COM interfaces through Win32::Process

[Phalanx1]

use Win32;
use Win32::Process;
        sub ErrorReport{
                print Win32::FormatMessage( Win32::GetLastError() );
        }
        my $ProcessObj = Win32::Process::Create($Obj,
                                "C:/windows/system32/RegSrv32.exe",
                                "RegSvr32 YourComponentsnamehere.wsc",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();
               if ($Obj->Resume()) {
        open FH, ">>results.txt" || die ErrorResport();
print FH "Component registered\r\n";
print FH "by Phalanx1 with Perl\r\n";

this is probably not the most ethical peice of code but it works.but it accomplishes the task required.