my $filename ="20160809173901.txt";
my $dir="/wls/oracle/opr2_new_mon/lib";
eval{
opendir(DIR, "/wls/oracle/opr2_new_mon/lib") or die $!;
if (-f $dir."/".$filename) {
unlink $dir."/".$filename;
}
closedir DIR;
};
if ($@ ne ''){
print $@;
my $dir="/wls/oracle/opr2_new_mon/lib";
eval{
opendir(DIR, "/wls/oracle/opr2_new_mon/lib") or die $!;
if (-f $dir."/".$filename) {
unlink $dir."/".$filename;
}
closedir DIR;
};
if ($@ ne ''){
print $@;
}