呼び出し元ファイル名と行番号の取得

　callerを使います。

use File::Basename;

foo();

sub foo {
	my ($pkg, $file, $line) = caller;
	$file = basename($file);
	print "ファイル $file の $line 行目から呼び出されました。\n";
}