Thanks to all for the input - here is what I did and it works just fine.

sub build_voicemail_update{
        my ($suffix) = @_;
        $suffix =~ s/'//g;
        my ($pid, $arg);
        my $perl_path = qq!c:\\winnt\\system32\\cmd.exe!;
        my $app = qq!\/c perl
C:\\web\\cgi-bin\\PHONEL~1\\UPDATE~2\\DISABL~1.PL!;
        $arg =  "$app $suffix";
        if(!(Win32::Spawn($perl_path, $arg, $pid))){
                die " could not spawn $path - $arg  - $!";
        }
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Reply via email to