#!/usr/bin/perl
{
  package Hoge;

  # コンストラクタ
  sub new {
    my $class = shift;
    my $this = {
      foo = 10,
    };
    return bless $this, $class;
  }

  # メソッド
  sub getFoo {
    my $this = shift;
    return  $this->{foo};
  }
}
{
  package main;
  $hoge = new Hoge();
  print $hoge->getFoo() . "\n";
}