#!/usr/bin/perl

use warnings;
use strict;
use Sample_Test;

my $object = Sample_Test->New();

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