#!/usr/bin/perl
use strict;
use DBI;


my $dbh = DBI->connect(
    "dbi:Oracle:host= ;sid= ;port= ","user","password",{RaiseError => 1,AutoCommit => 0}) || die "Database connection not made: $DBI::errstr";
eval {
    my $func = $dbh->prepare(q{
        BEGIN
   
    drop_user_table(parameter1_in => :parameter1);

        END;
    });
  
 $func->bind_param(":parameter1", 'mumtest') ; #positional placeholders are handy!
    $func->execute;
 $func->finish;

    $dbh->commit;
};

if( $@ ) {
    warn "Execution of stored procedure failed: $DBI::errstr\n";
    $dbh->rollback;
}

$dbh->disconnect;