Something

package Neser;

use warnings;
use strict;

sub new {
	print "Jsem tu pyco\n";
	return bless {};
}

my $promenna = "Neser";

my $trida = $promenna->new;