use 5.010;
use Path::Tiny qw( path );
say path($0)->absolute($ENV{PWD});