#!/usr/bin/perl -T

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Scalar::Util qw(tainted);

my $q = new CGI;
print $q->header;
print "PID: ",$q->b($$);
print $q->br;
my $cmd = $q->param('cmd');

if (tainted($cmd)) {
        print $q->b('$cmd is tainted');
}
print $q->br;
print "Taint Mode aktiv: ${^TAINT}";
print $q->end_html