#!/usr/bin/env perl

use strict;
use warnings;

use autodie;

# For Windows
my $Subscriptions_Path = "G:/Subscriptions";
my $Phone_Sync = "G:/Sync/PHONE/Main/Music";
my $Temp_Files_Location = "G:/Subscriptions/tmp";


my $Wait_Time = 10;

# Subscription DATA sets

my @Subscription = ( 
	 {
     Sub_Name               => "Morph",
     Archive_File           => "Morph Archive.txt",
     Lib_Sub_Path           => "$Subscriptions_Path/Morph",
	 Phone_transfer         => 0
     },	 
);

for (@Subscription) {
     print "Beginning Subscription Service for $_->{Sub_Name} \n";
	 
     print "\nCompleting Subscription Service for $_->{Sub_Name} \n\n\n";
     sleep int(rand($Wait_Time));
}