#!/usr/bin/perl -w # Pragma ------------------------------ use 5.006; use strict; # Utility ----------------------------- use Getopt::Long 2.19 qw( GetOptions ); my $prefix; GetOptions('prefix=s' => \$prefix,) or die "Options parsing failed"; my @cmd = ($^X => 'Makefile.PL'); push @cmd, "PREFIX=$prefix" if defined $prefix; exec @cmd;