#!/usr/bin/env perl

$dest = 'trampoline.cust';
$source = "$ENV{PERL_DIR}/bin/trampoline";

if ( $#ARGV == 0 ) {
    $dest = $ARGV[0];
}
if ($#ARGV == 1 ) {
    $source = $ARGV[0];
    $dest = $ARGV[1];
}

open(SOURCE, "<$source" ) || die "cannot open $source";
open(DEST, ">$dest" ) || die "cannot open $dest";

$pd = $ENV{PERL_DIR};
$pdlen = length($pd);

$rp = 'PERL_DIR_GOES_HERE';
$rlen = length($rp);

$extra = $pdlen - $rlen;

$file_len = sysread( SOURCE, $buf, 16384);

$buf =~ s/$rp.{$extra}/$pd/;

syswrite(DEST, $buf, $file_len);

close(DEST);
close(SOURCE);

chmod 0755, $dest;
