sub sethost{
        my $Objekt = shift;
        my $hash_ref = {}; 
        $hash_ref->{host} = shift;
        bless $hash_ref,$Objekt;
}

Attempt to bless into a reference at test.pl line 5.