my $path = 'c:\\tmp/sup';
  $path =~ tr{/}{\\};