#!perl
use DBI;

my $dbh = DBI-connect "dbi:Oracle:Db01", "developer", "dev12" );

my $statement = $dbh->prepare( "SELECT * from developer.stats" );

$statement->execute();
my @row = $statement->fetchrow_array();

print @row;