G'day smturner1,

The code you posted should be giving warnings about my $ARCHIVE = ... appearing twice in the same scope. E.g.

$ perl -Mwarnings -e 'my $x = 1; my $x = 2;'
"my" variable $x masks earlier declaration in same scope at -e line 1.
[download]

So, either that's not your actual code or you're hiding messages from us. Does autodie, for instance, provide feedback you're not showing?

You should check the File::Spec documentation. Your catpath() code does not match the documented syntax, i.e.

$full_path = File::Spec->catpath( $volume, $directory, $file );
[download]

See join for placing dots between your values.

Use a print statement to see the actual value of $ARCHIVE before calling make_path().

Ken, thank you for catching the error. I added it in the post, but it is not in the code I wrote. Please see new code:

use strict;
use warnings;
use diagnostics;
use autodie;
use File::Spec;
use File::Path qw( make_path remove_tree );

#Set command line arguments
my ($website, $old_ip, $new_ip) = @ARGV;

#Set vars                                         
my $volume     = 'C:/';                                               
+                                          
my $ARCHIVE    = File::Spec->catpath($volume, qw(Desktop), $website, $
+old_ip, $TIMESTAMP);
my $TIMESTAMP  = strftime("%Y%m%d%H%M", localtime);
my @WEBSITES = qw(
  three
  five
  calnet-test
  );

#Creates the new dir in archive
sub initialize {
  make_path ($ARCHIVE);
  return;
}


initialize;
[download]

subroutines should take arguments, not work on global vars, this (scoping) is very important concept to learn

initialize( "ro/sham/bo");
sub initialize {
    my( $ARCHIVE ) = @_;
    make_path( $ARCHIVE );
}
[download]

Also read Tutorials: Variable Scoping in Perl: the basics,
Coping with Scoping , Mini-Tutorial: Perl's Memory Management,
Lexical scoping like a fox,