#! perl -slw
use strict;
use Cwd;

my $db_site_dir		= 'c:\test';
my $db_name			= 'TESTDB';
my $table_name		= 'TESTTABLE';
my $admin_scripts	= 'p:\test';

my $cwd = cwd();
chdir $db_site_dir;

my @results 
= qx[ $admin_scripts\\Process_Table.bat -d $db_name -t $table_name 2>&1 ];

chdir $cwd;

print 'Got error $?' if $?;

print "Got:$_" for @results;

__END__
P:\test>type Process_Table.bat
@echo off
@cd
@perl -e"warn 'This text is output to STDERR'"
@echo Processed DBName: %2, Table: %4 successfully

P:\test>296350
Got:c:\test

Got:This text is output to STDERR at -e line 1.

Got:Processed DBName: TESTDB, Table: TESTTABLE successfully