sub write_register
{
    my ($date, $client_ip, $client_imsi) = @_;

    $output = qx(snmpwalk -v2c -t1 -c $community $client_ip $snmp_fver 2>&1);
    chomp $output;

    if ($output eq "Timeout: No Response from $client_ip")
    {
        return; 
    }
    else
    {
        my @result = split /:/, $output;

        if ($result[3])
        {
            $fver =  $result[3];
            $fver =~ s/ //g;
            $fver =~ s/\n//g;
        }
        else
        {
            exit;
        }
    }   # X

    if ($bsid)
    {
        system "sed -i '/$client_imsi/d' $path/leases_list.txt";
        system 'echo "' . $date . ',' . $client_ip . ',' . $client_imsi . ',' .
                          $fver . '" >> ' . $path . '/leases_list.txt';
    }
}