How to forget

http://pallit.lhi.is/microcodes/contr.php?code_id=58

#!/usr/bin/perl
$remember = "fixed in memory";
foreach $k(keys %main::){
$var = $k;
eval{$$var = undef;};
}
print $remember;