use Path::Class;
my $file = file($filepath,"test.txt");

##</code><code>##

$filepath =~ s{/}{\}g;
$file = $filepath . "\test.txt";