Use anonymous subroutines.

my $sub = sub {
   # do something
};
[download]

It doesn't work to declare "inner" subroutines because all subroutine names are visible at the package level.