Select Code to Download

#!/usr/bin/perl  -w
use strict;
...
</body>
</html>
HTML

#!/usr/bin/perl  -w
use strict;
...

print "regional--->$regional_office";
 my $user = $session->param('user');