Select Code to Download

      if(exists $userhash{$username}) {
        $userhash{$username}++;
...
      else{
        $userhash{$username}=1 ;
      }

      $userhash{$username}++;

open( INPUTDATAFILE, "< $inputfile" ) or die ...

open my $inputdatafile, '<', $inputfile or die ...