And in the program:

use Env qw(QUERY_STRING);
(my ($mode, $area, $b_area ) = split 'x', $QUERY_STRING;
$mode = 'view' if($mode eq 'v');
[download]