how do I find two parent directories up in perl?

I have a path: /path/to/here/file.txt.

I want to get /path/to/

Using

 my ($file, $dir) = fileparse($fullPath);

I can get file.txt and /path/to/here/

How do I get just /path/to/?