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