package Sample_Test;

use strict;
use Exporter;
our $VERSION = 1.00;
our @ISA = qw( Exporter );
our @EXPORT = qw();

sub New {
    my $class = shift;
    my $self = {
        user => 'me',
        num => '123',
    };

    bless( $self, $class );
    return $self;
}

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

    print $self->{user};
}

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

    return _Print_Me();
}

1

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Sample_Test;

my $object = Sample_Test->New();

$object->_Print_Me();
$object->Show_Me();