use strict; use warnings; use Cwd; use File::Spec; print Cwd::realpath(File::Spec->updir);