#!/usr/bin/perl

$date = `date +%y%m%e`;
$backup_dest = "/backup/home/".$date."-monthly";
$archive_dest = "/backup/home/archives/".$date."-monthly";
$backup_target = "/home/";
$level = "0";

$cmd = "dump -$level -u -A $archive_dest -f $backup_dest -j 9 $backup_target";

`$cmd`;