#!/usr/local/bin/perl5
print "Content-type: text/html\n\n";
open(HANDLE,"script_integration_records");
while (<HANDLE>) {
@temp1 = split(/:/);
$domain = unpack ("A4", $temp1[40]);
if ($domain eq "ATM") {
   if ($temp1[36] eq "In Production") {
      print "$temp1[38]\n"; # This is my break point...I think here's where I need help
      }
   }
}
close(HANDLE);