Oracle Database Discussions

I have installed oracle 10g in my system.
I have installed Active PERL 5.6.1 in my system.
I have written a perl program test.pl,which uses the module DBI.
PFA the perl code.
In the command prompt when I run "perl test.pl".
This is giving an error "Can't locate loadable object for module DBI in @INC (@INC contains: C:\oracle\pr
oduct\10.1.0\db_4\perl\lib\5.6.1\MSWin32-x86 C:\oracle\product\10.1.0\db_4\perl\
lib\5.6.1 C:\oracle\product\10.1.0\db_4\perl\5.6.1\lib\MSWin32-x86 C:\oracle\pro
duct\10.1.0\db_4\perl\site\5.6.1 C:\oracle\product\10.1.0\db_4\perl\site\5.6.1\l
ib C:\oracle\product\10.1.0\db_4\sysman\admin\scripts C:/Perl/lib C:/Perl/site/l
ib .) at C:\oracle\product\10.1.0\db_4\perl\site\5.6.1\lib/DBI.pm line 189
BEGIN failed--compilation aborted at C:\oracle\product\10.1.0\db_4\perl\site\5.6
.1\lib/DBI.pm line 189.
Compilation failed in require at select1.pl line 3.
BEGIN failed--compilation aborted at select1.pl line 3."

The perl code is :-
#!/usr/local/bin/perl

use DBI;
# set up database handles
#method1-directly connecting the database
my $dbh1 = DBI->connect( "dbi:Oracle:host=hydhtc46110;sid=orcl1","scott","sys")
or die "Can't connect \n" ;

my $cmd="select distinct empno empno, ename ename from emp"
my $sth1 = $dbh1->prepare($cmd);
$sth1->execute ;
my @row1;
my @row0;

while (@row1 = $sth1->fetchrow_array() )
{
($empno,$empname)=@row1 ;
print @row1;
}
$dbh1->disconnect ;
exit ;