Select Code to Download

#! perl
use strict;
...
    print "\n\nEnter room (or \"quit\"):\n";
    chomp($roomcmd = <>);
}

18:22 >perl 607_SoPW.pl

...
quit

18:23 >

%houserooms = (
kitchen  =>  {
...
},
...
);