Someone

#!/usr/bin/perl


use warnings;
use strict;

{
	package	C ;

	sub show_var {
		my $self = shift ;
		print "hi var \n" ;
	}
}

my $ref ;
my $i = bless \$ref, "C" ;
print "$i->show_var \n" ;