Select Code to Download

  my $sock = IO::Socket::INET->new(
       OptionFoo => 1,
       OptionBar => 'something',
       OptionBaz => 10
    );

  use strict;
  use warnings;
...
      Timeout  => '60'               # timeout in seconds
    );
  # rest of your code using $sock.