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