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