[urth]
User    = metaperl
Pass    = xxxxxxx
Host    = urth.org
RemoteDir = /home/metaperl/rsync
Type    = I

##</code><code>##

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);

##</code><code>##

[localhost:~/src/net_ftp_common/scripts] metaperl% perl rsync.pl
urth_User: no such variable at /Users/metaperl/.appconfig line 2
urth_Pass: no such variable at /Users/metaperl/.appconfig line 3
urth_Host: no such variable at /Users/metaperl/.appconfig line 4
urth_RemoteDir: no such variable at /Users/metaperl/.appconfig line 5
urth_Type: no such variable at /Users/metaperl/.appconfig line 6
Died at rsync.pl line 10.
[localhost:~/src/net_ftp_common/scripts] metaperl%