use MDK::Common; print ' '; foreach (map { chomp_($_) } cat_('authorised_progs')) { my $name = basename($_); print qq($name
); } print ' ';