请教怎么用perl实现bash shell可以实现的下列功能？ sqlplus /as sysdba <<EOF startup open; ex

请问如何用perl实现bash shell可以实现的下列功能？ sqlplus /as sysdba <<EOF startup open; exit; EOF
sqlplus /as sysdba <<EOF  
startup open; 
exit; 
EOF

换句话说：在控制台里启动了1个命令行程序后，需要再输入一些该程序自己的命令，然后再退出程序。

[解决办法]
可以用open打开文件管道sqlplus没有用过, 可以用其他的命令作实例

open FH, "|grep 'abc' |";

while(<>) {
print FH $_;
}

print "===\n";
while(<FH>) {
print ;
}

close FH;

[解决办法]
open(SQL, "|sqlplus $username/$password@${dbname}_$host") or die "error: $!";
print SQL "$sql_statement;\n";
print SQL "exit";