#!/usr/bin/perl -w
use strict;
use Storable;
use Data::Dumper;
use Cwd;  # Note it is possible to override chdir to update $ENV{PWD} but I could not get it to work under strict

my $dir;
my $cwd = cwd;
my %skuname = ( Lots of stuff here ) # Hard coded data to store in subdirectory

# Where are we in working directory now?
    print "Current Directory by cwd is $cwd \n";
    print "Current Directory by env is ", $ENV{'PWD'} , "\n";

# Lets take that info and create a new current working directory
    print "Appending skudbcurrent to dir\n";
    $dir = $cwd . "/skudbcurrent";

    print "We wish to move to $dir ";

# This directory may or may not exist
    print "Checking to see if skudbcurrent exists, if not then create it\n";
    unless (-d $dir) { mkdir $dir; print "We had to make $dir \n"; };

# We created it if it was not already there so now move into it
# Note that cwd chdir and $ENV{'PWD'} get out of sync although the move was successful
    chdir $dir;       #move into the new directory
    print "Moved to new directory:",$ENV{'PWD'} , "\n";
    print "Which should match $dir\n";

# We made the move. Now store some data in the new location.
    store(\%skuname, 'skudb') or die "Can't store %a in new location!\n";

# Success! Now print out what we think was stored
    print "Done!\n";
    print "Saved the file! er following:\n";
    print Dumper( \%skuname );