#!/usr/bin/perl

use strict ;
use warnings ;

use Data::TreeDumper ;

#-----------------------------------------------------------------------------------------------------

main(\@ARGV) ;

#-----------------------------------------------------------------------------------------------------

sub main
{
my ($arguments) = @_ ;

print DumpTree $arguments, "In test application\n" ;
}

#-----------------------------------------------------------------------------------------------------

1 ;