my $increment_by_secret = do {
  my $secret_number = 7;
  sub { $secret_number + shift };
};
[download]

{
    ($secret_number + shift(@_));
}
[download]

-- Randal L. Schwartz, Perl hacker