如何在perl中找到两个父目录？

use File::Spec;

my $current_dir = "/path/to/current/directory";
my $parent_dir = File::Spec->updir;
my $grandparent_dir = File::Spec->updir . File::Spec->updir;

my $first_parent_dir = File::Spec->catdir($current_dir, $parent_dir);
my $second_parent_dir = File::Spec->catdir($current_dir, $grandparent_dir);

print "First parent directory: $first_parent_dir\n";
print "Second parent directory: $second_parent_dir\n";