#!/usr/bin/perl

exec (shift @ARGV, pop @ARGV, @ARGV);