Select Code to Download

Use of uninitialized value at ./perl.m line 32, <FH> chunk 1.
Use of uninitialized value at ./perl.m line 32, <FH> chunk 1.
Use of uninitialized value at ./perl.m line 32, <FH> chunk 894.
Use of uninitialized value at ./perl.m line 32, <FH> chunk 896.
Use of uninitialized value at ./perl.m line 32, <FH> chunk 898.

#!/usr/bin/perl -w

...
   print "$callid \n", " @{$data1{$callid}}\n";
}
close FH;

    14  $
    15  ### sendto xxx.xxx.xxx.xxx7:5060 679 bytes @ Wed Feb  7 14:22:
+22 2007$
...
    36  a=rtpmap:101 telephone-event/8000^M$
    37  a=fmtp:101 0-11^M$
    38  $