Hi Perl300 :)

You don't need a Commit on Select statements.

Don't forget to close the connection with $dbh->disconnect;
I think it's a good practice to set the RaiseError flag.

Example:

my $dbh = DBI->connect('DBI:Oracle:payroll', 
{RaiseError => 1}) or die "Couldn't connect to database: " . DBI->errs
+tr;
[download]

Peace