package MyTest;
use warnings;
use strict;

sub new
{
  my ($class) = @_;
  $class = ref( $class ) || $class;

  my $self = {};
  bless( $self, $class );

  return $self;
}

sub display
{
  my ($self) = @_;

  print "\nWow! It worked.\n\n";
}

sub test
{
  my ($self) = @_;

  display();
}


return 1;

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use MyTest;

my $tst = MyTest->new();

$tst->test();