perl script example to take password hiden and read from it

Shell Programming and Scripting
1

Hi,
I am new to perl scripting
Can you please let me know if you have an example on how to read the hidden password and read from it?
Thanks,
Mahesh

2 
system('stty','-echo');
chop($password=<STDIN>);
system('stty','echo');