#!/usr/ug/bin/perl -w
use strict;
use Cwd;
my $dir = getcwd;
my $date_suffix;
$dir =~ m!(\d{4})/(\d{4})! or die "In a bad directory: $dir";
$date_suffix = "$1.$2";
print "$date_suffix\n";