I am using Perl/Tk. I want to draw a simple 3D rectangle that looks like a 3D bar (avilable in C. top and right side are raised). I dont want to use OpenGl. Is there any command in Perl/Tk for this? Moreover how to use "Tk Library Procedures" commands?