#!/usr/bin/perl sub top_html { return "$_[0]"; } print <