sub vpenv {
  my $file = shift;
  open(my $readf,"<","$file") or die "Unable to open file: $!";
  my @stuff=<$readf>;
  close($readf);

  $stuff[0]="setenv DSCUSTOMER $db\n";
  $stuff[1]="setenv DSSITENO $sno\n";
  $stuff[2]="setenv DSCUSTID $sid\n";

  open (my $writef,">","$file") or die "Unable to Write to file: $!";
  print $writef @stuff;
  close($writef);
}

#Updates database.form
sub vpdb {
  my $file = shift;
  open(my $readf,"<","$file") or die "Unable to Open File: $!";
  my @thing=<$readf>;
  close($readf);

  $thing[0]=".ARG DATABASE $db\n";

  open(my $writef,">",$file") or die "Unable to Write to File: $!";
  print $writef @thing;
  close($writef);
}

vpenv("$location/$dir/$site/$vpfile");
vpdb("$location/$dir/$site/$vpdir/$vpdata");