#!/usr/bin/perl -wT 	# or #!c:/perl/bin/perl -wT

use strict;
my $q;
my $sess_id;
my $usr_name;
my $password;