Here's a very naive wrapper. It wraps the Windows "dir" command. Just pass it a path. Again, very naive, you won't want to use this for anything but a demo.

#!/usr/bin/perl

use warnings;
use strict;

my $path = shift;

my $output = `dir $path`;

$output =~ s/DIR/FOO/g;

print $output;
[download]