how to display commands while perl script executing

[Sunita.Pradhan]

Hi

                I want to print the command during script execution .
Example :


===================
$ls = `ls`;

Print "$ls\n";
==================

In the above script I want to print "ls" command before 'ls' command gets 
executed . Like  "set -x" does  in  shell scripts .

Could you please help me on this ?

Thanks
Sunita