Returned value error

[Rajanath Tadikonda]

Hi all ,
I am trying to get a returned value in $rv and based on  query using oracle
..
This query is returning properly the number of  records  retr'ved without
any problem
but if I try the same code in  Unix it is returning "0E0";

I will appreciate if any one with similar experiance

Thank
Rajanath
#!/usr/bin/perl
use DBI qw(:sql_types);

my %dbx=getDetails();
my %attr = (PrintError => 0,RaiseError =>0,AutoCommit=>0);
my $rv=0;
$xctr++;

my($usr,$pass,$drv,$connect_string) =
($dbx{DB_USERNAME},$dbx{DB_PASSWD},$dbx{

my ($dbh,$status1,$err)=&oraon($usr,$pass,$drv,$connect_string);

if(!$status1)
{
        &beta_error_page($err);

        exit(0);
}

$dbh->{LongReadLen}=4096*1024;

my $sql2="select req_id,user_id,prog_id,file_data,status from
fms_contact_impo

my $sth=$dbh->prepare($sql2);

if(!$sth)
{
        &beta_error_page($DBI::errstr);

        exit(0);
}

my $rv=$sth->execute();
print " Returned values is $rv \n";
exit(0);