#!/usr/bin/perl

use strict;

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

while(<ORA>){

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

}
close(ORA);