#!/usr/bin/perl use strict; use Cwd; my $cwd = cwd(); my $date = '

last update: '. `date`.'

'; my $preload=qq|
|; my $output = qq|$date

sorted reverse alphanum

|; look(); $output.="
"; output(); exit; sub look { for ( split(/,/, `ls -rm "$cwd/md"`) ) { my $filename = $_; $filename=~s/^\s+|\s+$//g; $preload.=qq||; $output.=qq|$filename\n|; } $preload.='
'; return; } sub output { print $preload; print $output; }