#!/afs/athena/contrib/perl/perl

require "lsinfo.pl";

while ( <> ) {
  chop;
  if ($retval = &lsinfo ($_)) {
    print $retval, "\n";
  }
  else {
    print "$_: $!\n";
  }
}
