#!/usr/bin/perl
$prog = shift;
@args = @ARGV;
unshift @args, pop @args;
exec $prog, @args;

# todo skip options? or a version that does