# 
# SQL Query to execute 
# 
$cmd = "select * from table A";
# 
# Wait for prompt - ">>" at terminal 
# 
$t->prompt('/\>\>\s*$/'); 
# 
# Send SQL Query to terminal 
# 
$t->cmd($cmd); 
# 
# Debug 
# 
print "cmd 1 = $cmd<p><p>" if $debug; 
# 
# Execute SQL command 
#
$cmd = "go"; 
# 
# Wait for prompt - "(1)>>" 
#
$t->prompt('/\(\1\)\>\>\s*$/'); 
# 
# Read in data from terminal to array 
#
@lines = $t->cmd($cmd); 
# 
# Debug 
# 
print "prompt_string = $prompt_string<p>" if $debug;
print "lines = $t->cmd($cmd)<p>" if $debug;
print "lines array = @lines<p>" if $debug;
print "cmd 2 = $cmd<p>" if $debug;