END { my ($char); open(F,$0); read(F,$char,1); if ($char ne '#') { dump; } }