Select Code to Download

supun  -->  40000
  sam  -->  25000
readline() on closed filehandle $fh at ./base_ports.pl line 11.
  binasha  -->  10000
  bundy -->  37000
  binjiya  -->  5000

my $fname = 'MY_FILE';
my %users =  %{user_paths()};
foreach my $user (keys %users) {
...
    }
    return \%users;
    }