#!/home/jc0/aix/bin/perl
#
# Test login routine.