Perlのオブジェクト

Sample.pm

package Sample;

sub new
{
    my $class = shift;

    bless {}, $class;
}

1;

sample.pl

#!/usr/bin/perl

use Sample;

my $obj = ();

# NG
$obj = Samplｅ::new;

# OK
$obj = Sample::new('Sample');
$obj = Sample->new;

参考

http://www.rwds.net/kuroita/program/Perl_oo.html

追記

勢いでNGと書いたけど、動くことは動きます。
ただきっと、やりたかったこととは違う結果になる。

あと、Sample.pmの最後の1が抜けてたので追記。
さらに、typoしてたので修正。