#!/usr/bin/env perl
use strict; use warnings;

dircopy($ARGV[0],$ARGV[1]);

sub dircopy {
my @dirlist=($_[0]);
my @dircopy=($_[1]);
until (scalar(@dirlist)==0) {
	mkdir "$dircopy[0]";
	opendir my($dh),$dirlist[0];
	my @filelist=grep {!/^\.\.?$/} readdir $dh;
	for my $i (0..scalar(@filelist)-1) {
		if ( -f "$dirlist[0]/$filelist[$i]" ) {
			fcopy("$dirlist[0]/$filelist[$i]","$dircopy[0]/$filelist[$i]");
		}
		if ( -d "$dirlist[0]/$filelist[$i]" ) {
			push @dirlist,"$dirlist[0]/$filelist[$i]";
			push @dircopy,"$dircopy[0]/$filelist[$i]";
		}
	}
	closedir $dh;
	shift @dirlist;shift @dircopy;
}
}

sub fcopy {
my ($i,$data,$cpo,$cpn);
open($cpo,"<",$_[0]) or die $!; binmode($cpo);
open($cpn,">",$_[1]) or die $!; binmode($cpn);
while (($i=sysread $cpo,$data,4096)!=0){print $cpn $data};
close($cpn);close($cpo);
}