my $SQL = "BEGIN :rows := SLP_IMPORT.IMPORT2RESULTS; END;";
my $sth = $dbh -> prepare($SQL);
$sth -> bind_param_inout(":rows", \$zeilenanzahl, 20);
$sth -> execute();