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