use strict;
use warnings;

my $mo = bless{}, 'main'; 
# einfach eine Instanz Deiner Klasse (hier: 'main');

$mo->autoload('HTTP::Headers', 'header', 'Content-Type' => 'text/plain; Charset=UTF-8');
print $mo->autoload('HTTP::Headers', 'as_string');


sub autoload{
	my $self       = shift;
	my $classname  = shift;
	my $methodname = shift; # weitere Parameter in @_
	eval("use $classname"); # Klasse zur Laufzeit einbinden
	die "Can't use Class '$classname', Error: $@ \n" if $@;
	$self->{$classname} = $classname->new() if not exists $self->{$classname};
	my $code = $self->{$classname}->can($methodname);
	$self->{$classname}->$code(@_);
}