#!/usr/bin/perl @files = glob "*.txt"; foreach $file (@files) { open SRC, "<$file"; $num = ; chomp $num; $title = ; chomp $title; close SRC; $list {"$file"} = "$title" unless $num; $list {"$file"} = "$num. $title" if $num; } print "content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "Odklepávanie popola na Budhu\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; print "
 \n"; print "\t\t\t

Odklepávanie popola na Budhu

\n"; print "\t\t		 
 \n"; foreach $file (sort keys %list) { $title = $list {"$file"}; @dirs = split '/', $file; $file = pop @dirs; print "$title
\n"; } print "\t\t		 
 message 
\n"; print "\n"; print "\n";