in reply to Copying a directory recursively

Just a non-perlish train of thought...

<!perl>   tar cf - source | ( cd target ; tar xf - )   </!perl>

that's my unox recursive copying incantation.
But how would it translate to Perl?

it seems Archive::Tar only deals with file archives at first sight.
But it might be twisted to work as the tar loop, or not? And what about PAR?