#!/usr/bin/perl
use strict;

use File::Backup qw|backup|;

  backup(
     'from'          => "/home/peter/www",
     'to'            => "/opt/backup/peter",
     'torootname'    => "peter_backup_",
     'keep'          => 4,
     'tar'           => "/bin/tar",
     'compress'      => "/usr/bin/bzip2",
     'tarflags'      => "cvf",
     'compressflags' => "",
     'tarsuffix'     => '.tar',
  );