#!/usr/bin/perl -w

package Sub;

use strict;

sub new {
    my $class = shift;
    my $this = {};
    $class = ref($class) || $class;
    bless($this, $class);
    return $this;
}

sub name {
    print "Hi, this is the name subroutine.\n";
}

1;