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