update
[www.jankratochvil.net.git] / project / FordFulk / index.html.pl
index eca85e7..5134e2c 100755 (executable)
@@ -33,4 +33,10 @@ My::Web->init_project(
                "ListItem"=>\%My::Project::FordFulk::ListItem,
                );
 
+print <<'HERE';
+<iframe src="FordFulk/" width="90%" height="500" />
+<a href="FordFulk/">Program on-line</a>.
+</iframe>
+HERE
+
 My::Web->footer();