#!/usr/bin/perl
my $prog=q{PROG}; # replaced
my @opts=qw{OPTS}; # replaced

if (grep { $_ eq "-r" || $_ eq "--relocatable" } @ARGV) {
	exec($prog,@ARGV) || die "failed to run $prog";
}
else {
	my @args=grep { ! m/-no-pie/ } @ARGV;
	exec($prog,@opts,@args) || die "failed to run $prog";
}