Select Code to Download

# writing $line to the appropriate file for $callid. 
# Filename is assumed to be "log.$callid" and is opened if not open
...
}
my $fh= $filehandle{$callid}; 
print $fh $line;

sub process_sip {
    my ($user_data, $header, $packet) = @_;
...
    my $callid=$sip_pkt->get_header('call-id');
    if (exists $main_hash{$callid}) {
 ...