Tcl script to authorize Username and password

[escaflowne]

Can some one help me in writing a simple TCL script to get user name password and authorize the same to display a Report

I know this is very simple but i have no knowledge on TCL