And if you don't have POSIX installed, you can try Time::Piece instead:

use Time::Piece;
 
my $today = localtime->strptime(localtime->strftime('%F'), '%F');
my $hours = localtime->strptime('08:30:12','%I:%M:%S');
 
print $today->epoch + $hours->epoch;
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)