Select Code to Download

CREATE OR REPLACE PACKAGE foo AS

...
  
  FUNCTION getAllDept RETURN foo.deptCurs;
END foo;

CREATE OR REPLACE PACKAGE BODY foo AS

...
          RETURN(crsr);
    END getDeptCurs;
END foo;

my $dbh =DBI->connect('dbi:Oracle:host=hostname;sid=theSID',
       'user',
...

$deptRecords->finish;
$dbh->disconnect;