package UserConfigTest;

use strict;
use warnings;
use File::UserConfig;

sub new {
    my $class = shift;#Klasse wird übernommen
    my $self = {};#Anonymes Hash wird erzeugt
    bless $self, $class;#$self wird geblesst
    return $self;#$self wird zurückgegeben
}

sub printes {
    # The most simple Do What I Mean usage.
    my $configdir = File::UserConfig->configdir;
    print $configdir;
}

1;

#!/Perl/bin/perl

use strict;
use warnings;
use UserConfigTest;

my $app = new UserConfigTest;
$app->printes();