sub ctrl
{ # display links and $NORM
if(-e $normfile){ $norm = io('read',$normfile,$norm)} else {$norm = 'n/a'}
$norm = 'n/a' unless $norm =~ /\S/;
my $extra = '';
if( $url_xnn or $url_reputer ) {
$extra = '';
$extra .= qq{xNN} if $url_xnn;
$extra .= ' - ' if $url_xnn and $url_reputer;
$extra .= qq{reputer} if $url_reputer;
$extra .= '';
}
my$prnt = qq~ $bodytag