Example Problems - shell escapes

#!/bin/perl

print “Content-type: text/html\n\n”;

$username = $ENV{‘QUERY_STRING’};

open(RESULTS,”w $username |”);

$results = <RESULTS>

close(RESULTS);

print “User Information: $results\n\n”;

Previous slide

Next slide

Back to first slide

View graphic version