#!/usr/bin/perl # -*- mode: cperl; coding: utf-8; -*- use strict; use warnings; use utf8; use lib "/h/hamren/src/post/lib", "."; my $rval = do "common.pm" || die "$0: common.pm failed ($!) [$@]"; #--- Single-line common initializer #--- End of header my $text = em("text"); post( header(), p(read_main_article("Java")), p(read_cc_article()), h2("The source code"), source_file("./anagram.java.source"), footer() ); __END__