Help for this page

Select Code to Download


  1. or download this
    my @files = <../data/text/*.txt>;
my @display_files = map /([^\/]+)\.txt/, @files;
...
if ( param('select') )
{
    open(FILE, "<../data/text/$passage.txt") or die $!;
  2. or download this
    print header( -charset=>'utf8' );
print start_html( -style=>'/data/css/style.css',
...

my $display_date = strftime('%a %d %b, %I:%M %p', localtime);
Encode::from_to($display_date, 'ISO-8859-7', 'utf8');