use AppConfig;
use Net::FTP::Common;
use strict;

my $config = AppConfig->new({CASE=>1});
$config->file('/Users/metaperl/.appconfig');
my %urth = $config->varlist('^urth_', 1);

use Data::Dumper;
die Dumper(%urth);