#!/usr/bin/perl
##################################################
# backup -- Mike Schilli, 2001 (m@perlmeister.com)
##################################################
use warnings;
use strict;

my $TAR     = "/bin/tar";
my @DIRS    = qw(/u/mschilli/dev /data/scripts);
my $BAK_DIR = "/data/backups";

my ($y, $m, $md) = (localtime(time))[5,4,3];

my $date = sprintf "%d%02d%02d", 
                   1900+$y, $m+1, $md;

system($TAR, "zcfv", "$BAK_DIR/backup.$date.tgz", 
       @DIRS) and die "$TAR failed ($!)";