sub write_register
{
    my ($date, $client_ip, $client_imsi, $bsid) = @_;
    chomp(my $output = qx(snmpwalk -v2c -t1 -c $community $client_ip $snmp_fver 2>&1));
    return if $output eq "Timeout: No Response from $client_ip";
    my @result = split /:/, $output;
    die unless $result[3];
    my $fver = $result[3];
       $fver =~ s/[ \n]//g;

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