#! /usr/local/bin/perl
#
#-------------------------------------------------------------
#	ディレクトリ内にあるファイル名を取得する
#-------------------------------------------------------------
#

##### サーチするディレクトリを設定します
$DIR = "dir1/";

##### サーチするファイルを設定します
$FILE = "*.*";

##### Unix の ls コマンドを発行します
$LS = `ls $DIR$FILE`;

##### 結果を分解して表示します
@LIST = split(/\s+/, $LS);
foreach $LIST (@LIST) {
	print "$LIST\n";
}