or

Walk-Up in Perl