Select Code to Download

use strict;
...
  while ( ($dub_key,$dub_values) =  each %dublin_hosts ) {
    print Dumper("$dub_key => @{$dub_values}\n");
     }

open (FILE, "+</cygdrive/c/temp/passwd.oftappp1.hpux");
...
    print join ("\t", @values,"\n");
}

perl -d uid_check.pl
...
        DB::DB called at uid_check.pl line 59

  DB<4> q