use CGI qw(:standard);
use URI;

my $new = URI->new(url());
$new->path("/some/new/place");

print redirect($new); # 302 by default.
exit 0;