die "Usage: script.pl server1 server2" if @ARGV != 2; my ($server1, $server2) = @ARGV;