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

##</code><code>##

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