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

sub timestamp {
	# return current timestamp in HHMMSS format
	my ($second, $minute, $hour) = (localtime)[0,1,2];
	sprintf ("%02d%02d%02d", $hour, $minute, $second);
}

sub datestamp {
	# return current date in DDMMCCYY format
	my ($day, $month, $year) = (localtime)[3,4,5];
	sprintf ("%02d%02d%04d", $day, $month + 1, $year + 1900);
}
my $filename = 'new.file.d{activity_date}.t{activity_time}';

$filename =~ s/{activity_date}/datestamp/e;
$filename =~ s/{activity_time}/timestamp/e;

print $filename;