use strictures;
use Path::Tiny;
my $root = "some/place";
my $name = "somefile.ook";
my $path = path( $root, $name );
print $path, $/;
print $path->relative("some"), $/;
print $path->absolute, $/;