--- trunk/lib/Sack/Client.pm	2010/04/28 20:20:35	275
+++ trunk/lib/Sack/Client.pm	2010/04/30 14:34:49	276
@@ -13,15 +13,16 @@
 use Data::Dump qw(dump);
 use Sack::View;
 
-my $port = shift @ARGV;
+my ( $port, $sack_port ) = @ARGV;
+$sack_port ||= $ENV{SACK_PORT} || $port;
 my $debug = 0;
 my $data_path = "/tmp/sack.data.$port";
 
 my $sock = IO::Socket::INET->new(
 	PeerAddr => '127.0.0.1',
-	PeerPort => $port,
+	PeerPort => $sack_port,
 	Proto => 'tcp',
-) || die $!;
+) || die "127.0.0.1:$sack_port -- $!";
 
 my $sel = IO::Select->new($sock);
 $sel->add($sock);