#!/usr/bin/perl
opendir(FDIR,"files");
while(readdir FDIR)
	{$file=$_;
	print;
	}