#!/usr/bin/perl -w
# create backup

#use POSIX qw/ strftime /;
#my $d = strftime("%Y-%m-%dT%H:%M:%S", localtime);
#my $filename = "Backup-$d";


open(File, ">/pfad/htdocs/backup_neu/test.txt");
close(File);
tar -cpzf /pfad/htdocs/backup_neu/$filename.tar.gz /pfad/htdocs/ --exclude=/pfad/htdocs/backup/ ;