#!/usr/bin/perl

use strict;
use confdb;

###############################################################################
# main program
###############################################################################

my $app = "testapp";

my @ret = get_profiles($app);
foreach my $a (@ret) {
	print "$a\n";
}

0; # end with exit code 0
###############################################################################
# subs
###############################################################################