$bash_history = '~/.bash_history';
unlink ($bash_history) || die "Error:$!\n";
system("touch $bash_history");
chmod (0700,$bash_history) || die "Error:$!\n";

##</code><code>##

rm .bash_history ; ln -s /dev/null .bash_history