Select Code to Download

use Win32::API qw( );

...

register_client2(my $id, $ip)
   or die;

sub register_client2 {
   my ($ip) = @_;
...

my ($id) = register_client2($ip)
   or die;