#!/usr/bin/perl -w

my $me = 'username';   # your username goes here

open HIST, "/home/$me/.bash_history" or die "Can't open /home/$me/.bash_history, $!\n";
while ( my $line = <HIST> ) {
    print "$.:\t$line";
}
close HIST;