help in perl script

[Chaitanya Yanamadala]

hai
i am quite new to perl. i know php and mysql. so i require some help from u
guys

i have written one small script to run the short commands
this is the code

------------------------------
Code
------------------------------

#!/usr/bin/perl
use warnings;
# CUSTOM SYSTEM COMMANDS

print "Please Enter The Command You Wish To Initiate \n";



print "Enter The Commands With NO CAPITAL LETTERS\n";

print "HIS --- PRINTS RECENT COMMAND HISTORY\n";

print "LIST --- LISTS THE CONTENTS OF THE CURRENT /DIR \n";



print "INSTALL --- WILL PROMPT YOU TO ENTER PACKAGE NAME, THEN INSTALL\n";

print "UPDATE --- WILL UPDATE YOUR SYSTEM'S PROGRAMS\n";

print "SEARCH --- WILL PROMPT FOR PACKAGE NAME, THEN WILL SEARCH\n";



print "CHANGEDIRECTORY --- WILL CHANGE DIRECTORY\n";



##################################################

chomp ($varinput = <STDIN>);

#print "Var Input=> ".$varinput ."\n";



if ($varinput eq "his")
{

system("history");

}

------------------------------

and the remaining code folows
now what the issue is when i run the his the warning that is given is
------------------------------
Quote
------------------------------
Can't exec "history": No such file or directory at cmd.pl line 33, <STDIN>
line 1.
------------------------------

so what could be wrong
i am running this under the cent os 5.4 and the perl version is 5.8.8

Regards
Chaitanya