sub opt { '/opt' }
my $j = '/foo';
my $tmp = opt . $j;
print $tmp, "\n";