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

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