Select Code to Download

$neighbors = {
   a => { 
...
 
   etc.
}

#!/usr/bin/perl

...
  print "Invalid password";
  # make them enter a new password...
}