#!/usr/bin/perl
#

@ARGV = ('') if (!@ARGV);

for $d (@ARGV) {
	if (opendir(D,$d)) {
		@l = readdir(D);
		for $f (@l) {
			$F = $d ? "$d/$f" : $f;
			print "File: $F\n";
		}
		closedir(D);
	} else {
		print STDERR "$0: Can't read \"$d\" [$!]\n";
	}
}