Shell Programming and Scripting

#!/usr/bin/perl -w
use File::Find;
sub wanted {
 if (/begin$/){
   # Read "begin" file
   $file = $File::Find::name;
   open (F, "<", $file) or die "Can't open $file for reading: $!";
   while (<F>){if(/^([0-9\/:-]+).*Beginning.*$/){$times = "$1\n"; last}}
   close(F) or die "Can't close $file: $!";
   # Read "end" file
   $file =~ s/begin$/end/;
   open (F, "<", $file) or die "Can't open $file for reading: $!";
   while (<F>){if (/^([0-9\/:-]+).*Finishing.*$/){$times .= "$1\n"; last}}
   close(F) or die "Can't close $file: $!";
   # Write to "times" file
   $file =~ s/end$/times/;
   open (F, ">", $file) or die "Can't open $file for writing: $!";
   print F $times;
   close(F) or die "Can't close $file: $!";
 }
}
$backupdir = "/u01/app/oracle/backup";
find (\&wanted, $backupdir);