#!/usr/bin/env perl
die "list-it: Please enter a valid directory as an argument.\n" if @ARGV != 1;
chdir($ARGV[0]);
$list = `ls`;
if ($list =~ /\slist\-it\s/) {
open INDEX, ">index.html";
print INDEX "\n\nDirectory
listing\n\n\n\n";
@list = split /\s/, $list;
foreach (@list) {
print INDEX "- \n";
print INDEX "$_\n";
print INDEX "
\n";
}
print INDEX "
\n
stoerimpuls [dot] net
\n";
}