#!/usr/bin/env perl -w
use 5.010;
use strict;

use POSIX qw/ strftime /;
my $date = strftime "%Y%m%d", localtime;

say join '.', (join '', $_, $date), 'tar.gz' for qw/ bugs_db_ bugzilla_ /; 
__END__