Select Code to Download

sub enter_number {
  local $_;
...
    }
  }
}

package Preempt::Stdin;
use strict;
...
}

1;

package main;
use strict;
...
my $room = enter_number();
untie *STDIN;
print "Room:  $room\n";

package main;
use strict;
...
        }
    }
}