sub backup {
    my $sock = new IO::Socket::INET(
        PeerAddr => $bserver,
        PeerPort => $bport,
        Proto    => 'tcp'
      )
      or die "socket error: $!\n";
}

my $sock = new IO::Socket::INET(
    PeerAddr => $server,
    PeerPort => $port,
    Proto    => 'tcp'
  )
  or &backup;