#!/usr/bin/perl use strict; my $base_url = 'http://www.zukeran.org/shin/funifuni/'; my %topicindex; my $yyyy; my $mm; my $dd; my $tt; my $current_month; my $current_day; my $current_topic; my $base_url; open(NKF,"|/usr/bin/nkf"); select(NKF); print <<"__EOF__";