#!/bin/env perl

use strict;
use warnings;

use URI qw( );

my $target = "/index.php?prefix=/user/";
my $path = URI->new_abs( '.', $target )->path();

print "$path\n";