use MDK::Common; print '<html> '; foreach (map { chomp_($_) } cat_('authorised_progs')) { my $name = basename($_); print qq(<a href="/interactive_http.cgi?state=new&prog=$_">$name</a> <br> ); } print ' </html> ';