#!/usr/bin/env perl
use warnings;
use strict;
use File::Find;
use File::Copy;
use File::Basename;
use File::Spec::Functions;


die "usage:  $0   'source_directory'  'target_directory'\n" unless @ARGV == 2;

my $source_dir = $ARGV[0];
my $target_dir = $ARGV[1];

die "$source_dir is not a directory\n" if ! -d $source_dir;
die "$target_dir is not a directory\n" if ! -d $target_dir;

die "$target_dir: absoluter Pfad notwendig" if $target_dir !~ m|^/|;

$target_dir = catdir( $target_dir, basename( $source_dir ) );
mkdir( $target_dir ) or die $! if !-d $target_dir;

find ( \&wanted, $source_dir );

sub wanted {
    my $new_dir = '/';
    $new_dir = $1 if $File::Find::dir =~ m|^$source_dir(.+)$|;
    $new_dir = catdir( $target_dir, $new_dir );
    mkdir( $new_dir ) or die $! if ! -d $new_dir;
    copy ( $_, $new_dir ) or die $! if -f $_;
}