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

##</code><code>##

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