use Data::Dumper;

my $dbh =DBI->connect('dbi:Oracle:host=hostname;sid=theSID',
		'user',
		'pass',
		{
			RaiseError => 1,
			AutoCommit => 0
		}) || die "Database connection not made because:\n\t$DBI::errstr\n";

my $deptRecords;

eval {
	my $func = $dbh->prepare(q{
		BEGIN
			foo.getAllDept
			(
				:parameter1
			);
		END;
	});

	$func->bind_param_inout(":parameter1", \$deptRecords, 4096); 
	$func->execute;
};

if( $@ ) {
	warn 
		"Execution of stored procedure failed because:\n\t$DBI::errstr\n$@";
}
else
{
	print Dumper($deptName);
}

$dbh->disconnect;