#!/usr/bin/perl

  use strict;
  use warnings;

  use File::Spec;

  my $parent_dir = File::Spec->updir();

  chdir($parent_dir) or die "Error: Can't change directory to '$parent_dir'!\n";