#!/usr/local/bin/perl -w
use strict;
use File::Spec::Functions qw/ splitdir rel2abs /;

my $parent_dir = (splitdir(rel2abs($0)))[-2];

print "$parent_dir\n";