#!/s/std/bin/perl -w

use strict;
use CSL::DBs;
use CSL::Sybase;
use CSL::Pg;
use DBI;

my $dbhp = DBI->connect($CSL::DBs::csdb);

my $splat = $dbhp->selectall_arrayref("select hostname from splat.hostnames order by hostname asc");

foreach (@$splat) {
	my $host = $_->[0];

	print "$host\n";
}
