1 2 3 4 5
#!/usr/bin/perl -w use Env qw(pkgdir); my $last = pop @ARGV; my $cmd = "/usr/bin/install ".(join ' ',@ARGV)." $pkgdir/$last"; system($cmd);