please do not make me wait

  else {
        print "Please input a valid answer!\n";
#  -->  sleep (1); #blocking 
        &bank;
        }
[download]

Add a condition triggered by a flag passed in to the bank sub

sub bank{
    unless( $_[0] eq 'inv' ){
      Print "Greetings traveller, there is much rain today, can I inte
+rest you in our laundry deals?\n"
    }else{ 
      Print "I can not Deposit that, not after the licensing fees went
+ up on those, maybe you have some other valuables you need me to stor
+e for you?\n" 
    }
#rest of bank sub
}

...

  else { &bank('inv') }
[download]

with all the items I am sure to need to store and retrieve, I do not want to be hanging round for a dozy bank teller :)