#!/usr/bin/perl

use strict;

open(ORA, "/usr/cle_un");

while(<ORA>){

print "test: $`\n" if /^Func_file_permission$/;

}
close(ORA);

##</code><code>##

ram: 702
Func: Func_file_permission
testing

tam: 768
Func: Func_file_permission
test

cham: 803
Func: Func_file_permission
test

##</code><code>##

ram: 702
tam: 768
cham:803