#!/usr/bin/perl

use strict;
use warnings;

$_ = shift;
unless (m{^/}) {
    my $currDir = `pwd`;
    chomp $currDir;
    $_ = "$currDir/$_";
}
print;
