sub wait{ my $time =@_; sleep $time; }