#!/usr/local/bin/perl

# スクリプトの存在するディレクトリをモジュールの探索パスに導入する
sub BEGIN {
    my $dir = $0;
    $dir =~ s!/[^/]*$!!;
    unshift( @INC, $dir );
}

use strict;
use Student;

my $x = Student->new( '土屋雅稔', '170', '京都大学', 'D2' );
print $x->name(), "\n";
print $x->school(), "\n";
print ref($x), "\n";