$\ = "\n"; # hängt an jeder print-Anweisung dran 
$, = "\n"; # joint Listenelemente in print

tie my %f, 'TieFTP', %cfg or die $@;
my $fo = tied %f;
print $fo->dir, $fo->ls, keys %f;