1#!/usr/bin/perl
2# $Id: sub_src.pl,v 1.2 2003/06/18 21:04:44 hbo Exp $
3my $file=$ARGV[0];
4my $perlpath=$ARGV[1];
5my $libdir=$ARGV[2];
6open IN, $file or die $!;
7while (<IN>){
8  s/\$\{PERLPATH\}/$perlpath/g;
9  s/\$\{SSLIBDIR\}/\"$libdir\"/g;
10  print;
11}
12