my $get = "Starting";
   open(FH, "$pd_zvkk") || die ("Unable to open pd_zvkk log file: $pd_zvkk : !$ \n");
   printf STDERR ("My get = $get \n");
   foreach (<FH>) {
    #printf STDERR if /$get/;
    chomp();
    unless($_ !~ /$get/) {
      printf STDERR ("String = $_ \n");
     }
   }