#!/usr/bin/perl -w

use strict;
my $FILE = "$ENV{HOME}/.bash_history";
truncate($FILE,0) || die "Could not empty '$FILE' : $!\n";

## if truncate is not supported, use
# open(A,"> $FILE") || die "Could not blank $FILE\n";
# close(A);