system($command);
   if ($? == -1 )
   {
         $step = $step -1;
         display_err($command,$step);
         exit;
   }

sub display_err
{
    my ($cmd,$step)= @_;

open(LOG, ">>release_log.log")|| die "Unable to open release_log.log f
+or output: $!\n";

                        print LOG <<HEADING;
==================================================================
HEADING
        print LOG "[Command Execution Failed]\n";
        print LOG "Command: $cmd\n";
        print LOG "Command Succeful upto: $step\n";
        print LOG scalar localtime();
        close LOG;
}
[download]