One thing:

my ($alarm_details) = &main;
[download]

Do not use the &subname; to call subroutines unless you want to pass the current @_ array on to that sub. Normally, you'll want subname();, &subname(); or subname; (if the sub is already defined) instead.

See perlsub