#!/usr/bin/perl

use strict;
use warnings;

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