> > パール詳しいヤシいる？
> おう。

デバッグ目的に指定した変数をファイルに吐くコードを作ってみようと思ったのだけど
コードをデバッグしたいプログラムから呼び出すとエラーになる
package Debug;
my $log;
sub new {
	my $class=shift;
	if ($_[0]) {
		$log = $_[0];
	} else {
		$log = './debug.log';
	}
	bless { name => shift }, $class;
}
sub print {
	open(OUT,">>$log") || die("Log open error\n");
	foreach(@_) {
		print OUT "$_";
		print OUT "\n";
	}
	close(OUT);
}
sub clear {
	open(IN,">$log") || die("Log open error\n");
	print IN '';
	close(IN);
}

ここからデバッグしたいプログラム

require "debug.pl";
my $debug = new debug('./debug.log');
$debug->clear;

コンパイルするとこんなエラーが出るんだけど
   Can   BEGIN failed--compilation aborted

パールでOOPの経験が無いので原因が分からない
どこが間違ってるか分かる？

参考：2001/02/18(日)12時27分39秒