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