use Path::Tiny qw( path );
my $abs = path($0)->absolute;