new file:   perl/clear.pl