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