use strict;
use warnings;
use WWW::Velib::Station;
for my $station (@ARGV) {
my $s = WWW::Velib::Station->new($station);
printf "$station: a:%2d f:%2d d:%2d t:%2d\n",
$s->available,
$s->free,
$s->disabled,
$s->total,
;
}