sub cmd {
    my ($cmd) = @_;
    $cmd =~ s/\//\\/ig;
    my $ret = system($cmd);
  return: $ret;
}