package Test;
...
sub new 
{
    my $self = {}; 
    bless $self;
    return $self; 
}
...

use Test;
my $test_var = new Test;
$test_var->Prt("This is a test in the Mod\n");