#!/usr/bin/env perl
# Copyright 2005 Daniel Cer (daniel.cer@cs.colorado.edu)
#
# This work is licensed under the Creative Commons Attribution-NonCommercial-
# ShareAlike License. To view a copy of this license, visit 
# http://creativecommons.org/licenses/by-nc-sa/2.5/ or send a letter to 
# Creative Commons, 543 Howard Street, 5th Floor, San Francisco, California, 
# 94105, USA.

if ($#ARGV != 0) {
   print stderr "Usage:\n\t$0 (directory to list)\n";
   exit -1;
}

$dir_path = $ARGV[0];
die "\"$dir_path\" isn't a directory\n" if (! -d $dir_path);

print "Contents of \"$dir_path\":\n";
foreach $entry (<$dir_path/*>) { print "\t$entry\n"; }