init III

Perl Skript template/program.pl

@@ -0,0 +1,22 @@
+#!/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
+###############################################################################
+
+