use vars qw (
  $q $sess_id $usr_name $password
);