#!/usr/bin/perl

use warnings;
use strict;

package Config {

    sub new {
        my $classname = shift;
        my $self = {test => shift};
        print $self->{test} . "\n";
        return bless($self, $classname);
    }
}

my $c = Config->new(test => "test");