#!/usr/bin/perl -w

use strict;

open BASH, "|/bin/bash";
print BASH "tar -cf - $_ | (cd $new_disk; tar -xBpf -)";
close BASH;