use strict;

sub SetVars(){
  my %vars;
  open(VARS, 'myvars.txt')||die "Cannot open myvars.txt:$!\n";
  while(<VARS>){
    chomp;
    $vars{(split /:/)[0]} = (split /:/)[1];
  }
  return \%vars;
}

return 1;