use File::Spec; my $filename=File::Spec->catfile("dir1", "test.pl"); print "filename: $filename\n";
filename: dir1\test.pl