#!/usr/bin/perl
# $Id: sub_vers.pl,v 1.2 2003/06/23 00:45:35 hbo Exp $
my $version=$ARGV[0];
my $in=$ARGV[1];
my $out=$ARGV[2];
open IN, $in or die $!;
open OUT, ">$out" or die $!;
while (<IN>){
  s/\$\{VERSION\}/$version/g;
  print OUT;
}