if($in{'go'} eq 'perldoc'){
use Pod::Html;
    }
    if($in{'file'} =~ /edit/ or /save/){
use HTML::Entities;
    }
    if( ($in{'rd'}) 
    or ( ($in{'file'} eq 'save') && ($in{'filename'}) ) 
    or ($in{'go'} eq ' url ')){
use FindBin qw($Bin);
use File::Spec::Functions qw(rel2abs);
    }
    if($diag eq '1'){
use Data::Dumper;
    }

##</code><code>##

use Pod::Html;
use HTML::Entities;
use FindBin qw($Bin);
use File::Spec::Functions qw(rel2abs);
use Data::Dumper;

if($in{'go'} eq 'perldoc'){
  # do nothing
}

if($in{'file'} =~ /edit/ or /save/){
  # do nothing
}

if( ($in{'rd'}) 
    or ( ($in{'file'} eq 'save') && ($in{'filename'}) ) 
    or ($in{'go'} eq ' url ')){
  # do nothing
}

if($diag eq '1'){
  # do nothing
}