#!/afs/athena/contrib/perl5/perl -w
#!/afs/sipb/project/perldev/p

use lib ('/afs/athena.mit.edu/user/b/e/bert/project/perl5');
use Net::SegmentOwner qw( owner );
use Getopt::Long;
use strict;

# Getopt::Long::config("bundling_override");
Getopt::Long::config("bundling"); # bugs suck
GetOptions("d|debug"	    => \$Net::SegmentOwner::debug)
  or die "Invalid arguments.\n";
@ARGV or die "No arguments.\n";

foreach (@ARGV) {
  print owner($_) . "\n";
}