my $ms = 3500; # zeit in millisekunden
select( undef, undef, undef, $ms / 1000 );