#!/usr/local/bin/perl -w

use strict;
package Test;
print Test->method();
sub method {
  my $self=shift;
  return $self;
}
__END__
Test