使えない拡張子を持つファイルを列挙する

#! /bin/perl
#
#  書式
#       perl check-geoext.pl
#
#  機能
#       geocities でサポートされない拡張子をもつファイルを見つける
#
#  説明
#       check-geoext.pl は標準入力から1行パス名の形式のを読みとり
#       サポートされない拡張子を持つものを標準出力に出力します。
#
#  例
#       カレントディレクトリ以下でgeocities でサポートされない拡張
#       子をもつファイルを見つける。
#
#       find . -type f | perl check-geoext.pl
#