#!/usr/bin/perl

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

$fn = $ARGV[0];
$fn =~ s/^\.\///g;
$fn =~ s/\//_/g;
system "cp -Rp \"$ARGV[0]\" \"$fn\"";