use warnings;
use strict;
use File::Spec;

my $path = File::Spec::rel2abs ('.');