Shell Programming and Scripting

 print "After create SubDir routine.";
                  createSubDirs($fileDir);
                        my $from = $ORACLE_HOME.$dirSep.$file;
                        my $to = $bootstrapDir.$dirSep.$fileDir;
                        if ($isWindows)  {
                           copy($from, $to);
                        } else {                        
                          system("cp -rf $from $to");                           
                        }
                        print "\nCopied file $from to $to\n";

else {
                          print "I am here d";
                          system("cp -rf $from $to 2>/dev/null");
                           if ($? ne 0){
                             print "Bootstrap failed."
                           }