Thank you so much for all the monks....

Finally i used, getpwuid and crypt which was learnt from perldoc -f crypt.

Thanks once again.