Select Code to Download

use File::Spec;
use strict;
...

my $path = File::Spec->catfile($dir, $file);
print $path, "\n";