#!/usr/bin/perl -w -pi~
# Use command line options to read and write file(s).

use strict;
our ($lib, $arc);

BEGIN {
  $lib = shift @ARGV;  # Shift off the arguments so they are
  $arc = shift @ARGV;  # not processed as files
}

s/\Q###LIBPREFIX###\E/$lib/;  # perform substitutions
s/\Q###ARCPREFIX###\E/$arc/;

1;

__END__