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;