How to get the absolute directory in perl

How can I get the absolute directory of the ActiveDocument file in Windows?