OP did not indicate to be using ODBC. Au contraire, 'dbi:Oracle:' indicates the use of Oraperl (native Oracle bindings).
Just one comment to the OP: don't do

my $info = "insert into table1 values('$user','$filename','$filesize',
+'$time','$direction')";
my $sth = $dbh->prepare($info);
$sth->execute();
[download]

-- use instead either

my $info = "insert into table1 values (?, ?, ?, ?, ?)";
my $sth = $dbh->prepare($info);
$sth->execute($user, $filename, $filesize, $time, $direction);
[download]

or

my $info = "insert into table1 values(:user,:filename,:filesize,:time,
+:direction)";
my $sth = $dbh->prepare($info);
$sth->bind_param(user => $user);
$sth->bind_param(filename => $filename);
$sth->bind_param(filesize => $filesize);
$sth->bind_param(time => $time);
$sth->bind_param(direction => $direction);
$sth->execute();
[download]

(for various reasons, including security ones)