Select Code to Download

sub vpenv {
  my $file = shift;
...

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

use Tie::File;
sub vpenv {
...

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