Добрый вечер!
Прошу помощи в решении проблемы.

Скрипт к подключении к базе написал, а вот заставить сохранять данные в файл не получаятся.

#!/usr/bin/perl
use DBI;
use Getopt::Long;
my $SID="Base1";
my $host="11.111.11.1";
my $user="user";
my $parol="pass";
my $port="1521";
my $Id="Id";
##my $Host="Host";

GetOptions (
'Id=s' => \$Id );
##
my $dbh=DBI->connect("dbi:Oracle:host=$host;sid=$SID;port=$port",$user,$parol
,{AutoCommit=>0,RaiseError=>1}) or die "No connect to Oracle:$DBI::errstr\n";

$statement="select EXT_SYSTEM,RESOLUTION,ID,EXTID from table1 where ID=(?);
my $sth=$dbh->prepare($statement);
$sth->execute($Id);

$sth->finish();

$dbh->disconnect( ); ##or warn "Disconnection failed: $DBI::errstr\n";

exit;

Что-то не могу найти синтаксис на выгрузку в текстовый файл.