#!/usr/bin/perl

#my $d=$ARGV[0];
#print "$d\n";

#use Cwd;
#my $dir=getcwd;

#print "$dir\n";
use Cwd 'abs_path';

my $root=$ARGV[0];
my $root=abs_path($root);

print "$root\n";