I am getting flooded with tmp files

[ToddAndMargo via perl6-users]

I am getting flooded with tmp files.  I though
I was erasing them (unlink).  What am I doing
wrong:
use File::Temp;
...
my Str $TmpFile = $?FILE;
$TmpFile ~~ s| .* $( Q[/] ) ||;  # we need just the name
$TmpFile ~~ s| $( Q[.] ) .* ||;

($TmpFile, $TmpHandle) = tempfile(:tempdir("."), $TmpFile ~ "_******" ~ 
".tmp" );
...
($TmpFile, $TmpHandle) = tempfile(:tempdir("."), :!unlink);