Select Code to Download

use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw(GET);
use HTTP::Response;

$|=1; #Disable buffering to allow instant output of text.

our $editorPassword = "**********";
our $language = "en"; # language code for wikipedia namespace
our $enabled = "true"; # set to false to take offline/disable

if ($enabled eq "true") {

if ($enabled) {

&getInput;

getInput();

my @gettheip = split(/\./,$ENV{'REMOTE_ADDR'});
my $remoteHost = "$gettheip[0].$gettheip[1].$gettheip[2].$gettheip[3]"
+;

sub readEditTokens {

...
    close (TOKENFILE);
    return ($editTokens);
}

sub readEditTokens {
    open(my $TOKENFILE, '<', $editTokenFile) or
...
    my $editTokens = <$TOKENFILE>;
    return ($editTokens);
}

print STDOUT "Content-type: text/html\n\n";