>>329-330
#!/usr/bin/perlでは見分けられないんですね。
ドキュメントとファイル尻で判断します、
ありがとうございました。