use strict;
use warnings;

my $volume = "C:";
use File::Spec::Win32;
my $SourceDir      = File::Spec::Win32::catfile( $volume, qw ( Users st2641 Desktop Source_dir  ) ); 

print $SourceDir,"\n";