The Elevator problem, in Perl