あるPerlスクリプトが、require等で別のスクリプトから呼ばれた場合と
直接起動された場合を区別する方法はありますでしょうか？
ActivePerlの5.8を使っています。