#!/usr/bin/perl

use strict;
use warnings;
use File::Copy qw( copy );
use FindBin qw( $Bin );


