#! perl -slw
use strict;

package XX::Blah;

sub new {
	return bless { proof=>'You got me!' } , shift;
}

sub proof {
	my $self = shift;

	print $self->{proof};
}

package main;

my $test = new XX::Blah;

$test->proof();

__END__
# Output
C:\test>216900
You got me!

C:\test>