v_sid_id=0
v_ser_no=0
. /var/oracle/oravars10g
sqlplus -s /nolog @/home/abc_login<<!

set serveroutput on size 1000000
/
declare

v_sid number;
v_serial number;
v_TEXT varchar(32000);

cursor c1 is
select col1,col2 from table1 where active_status='Y';

begin


for i in c1 loop

if v_sid is null and v_serial is null then
v_sid :=  i.col1;
v_serial := i.col2;
end if;

end loop;


if v_sid is not null and v_serial is not null then
v_sid_id := v_sid;-- note that v_sid_id is shell script variable
v_ser_no := v_serial; -- v_ser_no 
end if;


exception when others then
null;
end;
/
!

#!/usr/bin/perl

use DBI;

$perl_variable_one = 0;
$perl_variable_two = 0;

$db  = DBI->connect("dbi:Oracle:DATABASE","user",  "password"   ) or die "Database connection failed ";

my $SQL = qq{
 DECLARE
   v_plsqlvar_one number := 1;
   v_plsqlvar_two number := 2;
 BEGIN

  :BIND_ONE := v_plsqlvar_one;
  :BIND_TWO := v_plsqlvar_two;

 END;
};

my $sth = $db->prepare($SQL);
$sth->bind_param_inout( ":BIND_ONE", \$perl_variable_one, 400);
$sth->bind_param_inout( ":BIND_TWO", \$perl_variable_two, 400);
$sth->execute();
 
print "Result for var 1 : $perl_variable_one\n";
print "Result for var 2 : $perl_variable_two\n";

$db->disconnect();

$ ./test.pl
Result for var 1 : 1
Result for var 2 : 2
$