package BOGUS ;
use fields qw( new ) ;

package TEST ;

my BOGUS $b ;
$b = fields::new("BOGUS") ;
@{$b}{keys %TEST::} = @TEST::{keys %TEST::} ;

sub new {
	my $class = shift ;
	my TEST $self = {} ;
	bless $self, $class ;
	
	print "Runtime!\n" ;
	bloeb() ;
    
	return $self ;
}

package main ;
use strict ;
use warnings ;
sub tst {
	my TEST $x ;
	$x = TEST->new() ;
	$x->blo() ;
}
tst() ;