#
# Get time for now.
#
my %NOW;
($NOW{'sec'}, $NOW{'min'}, $NOW{'hour'}, $NOW{'mday'}, $NOW{'mon'},
 $NOW{'year'}, $NOW{'wday'}, $NOW{'yday'}, $NOW{'isdst'})
 = localtime time;

my $next_backup_file = sprintf("daily-incremental-backup.%04i%02i%2i",
    $NOW{'year'} + 1900, $NOW{'mon'} + 1, $NOW{'mday'});