下記ＵＲＬのようなしだいでｐｅｒｌ初心者スレの方から紹介されて来ました
よろしくおねがいします。
http://pc11.2ch.net/test/read.cgi/php/1171102883/953-959
【 CGI&PHP名 】 なし　自作
【 配布先URL 】 自作
【 依頼期限 】　なし
【 依頼内容 】 CGIからファイルを製作するときに付けたファイル名(フォー
ムから環境変数を利用して送信）がすでにあるファイルと重複し
ていた場合の処理のつもりのプログラムの修正。以下ソース
#!/usr/bin/perl

$dir = "環境変数からファイル名を取得した値";

opendir(DIR , '.');
@view = readdir(DIR);
$xx = pop @view;
while ($xx = 0) {
if ($xx =~ /$dir/) {
print "すでにディレクトリが存在します";
}
$xx = pop @view;
}
print "elrr end";