All the history command does is open your .bash_history file and print it out with numbers. This does the same:

#!/usr/bin/perl -w

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

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print