#! perl
use strict;
use warnings;
use Dackup;
 
my $source = Dackup::Target::Filesystem->new
(
    prefix => '.\tmp\home',
);
 
my $destination = Dackup::Target::Filesystem->new
(
    prefix => '.\home',
);
 
my $dackup = Dackup->new
(
    source      => $source,
    destination => $destination,
    delete      => 0,
    dry_run     => 0,
    verbose     => 1,
    throttle    => '1Mbps',
);

$dackup->backup;