An example - the culprit



package TempFile;

...

sub DESTROY {
    my($self) = @_;
    unlink $$self;              # get rid of the file
}