スゲい簡単なPerl入門 -2ndDay ref: http://qiita.com/items/43320da7c38813b805ce

file1.txt

     my $pkg = shift;

file2.txt

package main;

use Stonge;
my $obj = Stone->new('brick','100');

file3.txt

$obj = Stone::new('Stone','brick','100');

file4.txt

# 1st argument of Stone module is inserted here.
my $pkg = shift;

# 2nd and 3rd arguments are inserted here.
my $hash = {
     # 2nd argument
     name => shift;
     # 3rd argument
     weight => shift;
};
bless $hash, $pkg;

test.pl

#!/usr/bin/perl -w

package Stone;

sub new{
     my $pkg = shift;
     my $hash = {
          name     =>     shift,
          weight     =>     shift
     };
     bless $hash, $pkg;
}