Select Code to Download

    38  foreach $callid (sort keys %data1) {
    39  #   print " @{$data1{$callid}}\n";
...
    41      print "$fields\n";
    42  }
    43  close FH;

~/script/perl/temp@myserver1 >./program file1
There were 0 which could not detect
 INVITE  100 180 200 ACK  BYE  200
 INVITE  100 180 200
 180 200 ACK  BYE  200

There were 0 which could not detect
Use of uninitialized value at ./perl.m2 line 40, <FH> chunk 32.
...
INVITE 110011801200
Use of uninitialized value at ./perl.m2 line 40, <FH> chunk 32.
18012001ACK 1BYE 1200