#!/usr/bin/perl
$_ = shift;
unless (m{^/}) {
    $currDir = `pwd`;
    chomp $currDir;
    $_ = "$currDir/$_";
}
print;
