use File::Spec;

my $file;
my $dir;
my $wholefile;

$dir = "c:\\perl\\bin\\";
$file = "perldoc.bat";

$wholefile = File::Spec->catfile($dir,$file);
print "file: " .$wholefile;