#!/usr/local/bin/perl

use strict;

use Getopt::Std;
use Time::Local;

my %opts;
getopts('d', \%opts);

use NBU;
NBU->debug($opts{'d'});

my @list = NBU::Pool->list;
for my $p (sort {$a->id <=> $b->id} @list) {
  printf("%2d: %s\n", $p->id, $p->name);
}