ich möchte zum jeweils aktuellen Tag die Unixzeit für eine bestimmte Uhrzeit bestimmen, also etwa <heute> 11:30 in die entsprechende Unixzeit konvertieren.

mein Ansatz wäre da:
use Time::Local;
use DateTime;

...
..now(); # heutiges Datum auslesen
....... # $year, $month und $day zuweisen
........# $hour, $min und $sec abfragen
$zeitstempel = timelocal($sec, $min, $hour, $day, $month - 1, $year - 1900);

allerdings hab ich da das Gefühl, daß das viel zu kompliziert gedact ist. Gibt's da auch einen einfacheren Weg ?