#!/usr/bin/env perl

use strict;
use warnings;

use autodie;
use File::Find;
use File::Rename;
use Data::Dumper;

# VARIABLES
# Subscriptions Library & Archive Path variables for clarity
my $Subscriptions_Path = "/mnt/hgfs";


# Subscription DATA sets

my @Subscription = ( 
     {
     Sub_Name               => "T 1",
     Lib_Sub_Path           => "VM-Share",
	 Keep_Duration          =>  0,
     },
     {
     Sub_Name               => "T 2",
     Lib_Sub_Path           => "VM-Share/xtr",
	 Keep_Duration          =>  0,
     },
     {
     Sub_Name               => "T 3",
     Lib_Sub_Path           => "VM-Share/xtr 2",
	 Keep_Duration          =>  0,
     }
);

for (@Subscription) {
     print "Beginning Subscription Service for $_->{Sub_Name} \n";

     print "The absolute library path is: $Subscriptions_Path/$_->{Lib_Sub_Path}\n";
	 my @path = glob("'$Subscriptions_Path/$_->{Lib_Sub_Path}/*'");
	 print Dumper(\@path); 
	 print "\n";
     if (@path) {
	 File::Rename::rename(\@path,{
		 _code     => sub { s/_/ / },
		 verbose   => 1,
		 no_action => 1,
	 }
     ); };
     print "Completing Subscription Service for $_->{Sub_Name} \n\n";
}