Excellent technique. I wonder though, shouldn't that be as follows?

sub opt_h { exists $opt{h} } # boolean
sub opt_f { exists $opt{f} ? $opt{f} : return } # takes value
[download]

Makeshifts last the longest.