Select Code to Download

select(my $read_out = $read_in, undef, undef, $timeout);

select(my $read_out = $read_in, undef, undef, MINIMUM_TIMEOUT);

#!/usr/bin/perl

...
exit 0;