Select Code to Download

#!/usr/bin/perl -Tw

...
                p(i($error_message)) .
                end_html;
}

sub isHostValid{
        my $host = shift;
...
          
          return 0;
}

#!/usr/bin/perl -w

...
                p(i($error_message)) .
                end_html;
}