All pastes #116227 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-08-05 04:50 UTC
rendered paste body
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;