Select Code to Download

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

sub write_register
{
...
                          $fver . '" >> ' . $path . '/leases_list.txt'
+;
    }
}

if (condition)
{
...
{
    ...
}

return if condition;
...

sub write_register
{
...
    }
}