[perl]sqlplus (no module)

$shell = "X=`sqlplus -S login/pass <<EOFTOTO
set HEADING    off
set LINESIZE   250
set PAGESIZE   0
set SQLPROMPT  \"\"
set ECHO       off
set WRAP       off
set VER        off
set FEED       off
set TERM       off
set SQLNUMBER  OFF
SELECT * FROM v\\\\\$version ;
EOFTOTO`
echo \"\$X\" >> rqt.txt";

	open (FILE, ">rqt.sh");
	print FILE $shell;
	close FILE;

	system ". rqt.sh";
	unlink "rqt.sh";

	open (FILE, "rqt.txt");
	$/ = "66210-34" ;
	$result = <FILE>;
	$/ = "\n" ;
	close FILE;
	unlink "rqt.txt";

	if ($result =~ /Edition Release (.*) - /){
		$oraserv = $1;
		print $oraserv;
	

$ gcc --version
gcc (GCC) 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)
Copyright (C) 2004 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

$ cat readpipe.pl
#!/usr/bin/perl

open LIREPIPE,"gcc --version |" or die "E/S : $!\n";
while (<LIREPIPE>){
  print if /gcc/i;
}

$ perl readpipe.pl
gcc (GCC) 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)

my $oraserv;
my $connect_oracle = "X=`sqlplus -S login/pass <<EOFTOTO
set HEADING    off
set LINESIZE   250
set PAGESIZE   0
set SQLPROMPT  \"\"
set ECHO       off
set WRAP       off
set VER        off
set FEED       off
set TERM       off
set SQLNUMBER  OFF
SELECT * FROM v\\\\\$version ;
EOFTOTO`
echo \"\$X\" >> rqt.txt";

open FILE,"$connect_oracle |" or die "E/S : $!\n";
while (<FILE>){
	next unless /Edition Release (.*) - /;
	$oraserv = $1;
}
print $oraserv;

open FILE,"$connect_oracle |" or die "E/S : $!\n";
while (<FILE>){
     print "je suis dans le while \n";
	next unless /Edition Release (.*) - /;
	$oraserv = $1;
}

$shell = "X=`sqlplus -S login/pass <<EOFTOTO
set HEADING    off
set LINESIZE   250
set PAGESIZE   0
set SQLPROMPT  \"\"
set ECHO       off
set WRAP       off
set VER        off
set FEED       off
set TERM       off
set SQLNUMBER  OFF
SELECT * FROM v\\\\\$version ;
EOFTOTO`
echo \"\$X\" >> rqt.txt";

open (FILE,"$shell |") or die "E/S : $!\n";
close FILE;

open (FILE, "rqt.txt");
while (<FILE>){
	next unless /Edition Release (.*) - /;
	$oraserv = $1;
}
close FILE;
unlink "rqt.txt";
	
print $oraserv;