sub parseResponse {
    my $out = shift;
    my $certname;
    my $validTo;
    my $retMonth;
    foreach my $line (split ("\n", $out)) {
      if ($line =~ m/^(Alias\sname:\s)(.+)/) {
        $certname = $2;
        #print "$certname\n";
      } elsif ($line =~ m/^(Valid\sfrom:\s\w+\s)(\w+)\s(\d\d)\s(\d\d:\d\d:\d\d)\s\w+\s(\d+)\s(until:)\s\w+\s(\w+)\s(\d\d)\s(\d\d):(\d\d):(\d\d)\s\w+\s(\d\d\d\d)/) {
          $retMonth = &convertMonth($7);
          $validTo = timegm($11,$10,$9,$8,$retMonth,$12);
          #print "$validTo\n";
      }
    }
    #print "$certname - $validTo\n";
}