You can generalize this:

BEGIN {
  my @coderef;
  END { $_->() for @coderef }
  sub atEND { push @coderef, @_ }
}
...
sub new_tempfile_name {
   ...
   atEND(sub { unlink $name });
   return $name;
}
[download]

Now you can add other things dynamically as well, using one mechanism, just by passing a coderef (usually a closure).

-- Randal L. Schwartz, Perl hacker