use Time::Local; 
$heute11uhr = timelocal(0, 30, 11, (localtime)[3..8]);