perl time format

Hay guys,

I used time::local module. But i can't get my proper answer from this.

I want to extract two time for tomorrow start time and end time. In my code i just hard coded this. But it's not running for every day na. I need to create these time from any function or module.

my $TomStartDate = '2009-08-12 00:00:00';
my $TomEndDate = '2009-08-12 23:59:59';

Thanks in Advance

How about something like

@nextday = localtime(time + 86400);

printf("%02d/%02d/%02d",$nextday[4]+1,$nextday[3],($nextday[5]+1900)%100)

Extract two times from what? Please try and be more specific.