#!/usr/bin/perl -w

use strict;
use Devel::Peek;

sub main {

	opendir(DIR, ($ARGV[0] || '.'));

	print "Creating file 'directory-dump.txt'\n";

	open STDOUT, '>', "directory-dump.txt" or die "Can't redirect STDOUT: $!";
	open STDERR, ">&STDOUT";

	while (my $entry = readdir(DIR)) {

		print Dump($entry);
	}

	closedir(DIR);
}

main();