I'm still not sure what you're trying to run, because the above 'code' won't execute at all. I'm used to seeing something like this (simplest case, incomplete, and completely untested):

my $query=<<"EOQ";
create or replace procedure GetNaem( dept_id IN NUMBER, dept_name OUT 
+VARCHAR2 )
is
begin
     select name 
     INTO dept_name 
     from Empl 
     where id = dept_id 
     order by name ;
end ;
EOQ

my $dbh = new DBI::Oracle (or whatever module you're using with params
+ here);
# here you should bind your parameters, but I don't recall the syntax.
# yours doesn't quite look right either, so I would consult the docs

my $func = $dbh->prepare( $query );
$func->execute;
[download]

In short, it looks like you've got a little ways to go before you get code that will even compile. Currently, your eval brace isn't even closed...

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]