sub mysleep {
   select(undef,undef,undef,$_[0]);
}