#!/usr/bin/perl -w 
use strict;

my $cmd="sqlplus scott/tiger\@whatever";

open SQLPLUS, "|$cmd" or die "Ah poo!:$!\n";
print SQLPLUS<<DOIT;
desc user_tables
DOIT
close SQLPLUS;