manipulate dates in perl
