#!/usr/bin/perl -T

use strict;
use warnings;
use CGI::Fast;
use CGI::Carp qw/fatalsToBrowser/;
use Scalar::Util qw(tainted);
while (my $q = new CGI::Fast) {
        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;

}