#!/usr/bin/perl
use strict;
use warnings;

BEGIN {
    eval "use $ARGV[0]";
    die $@ if $@;
    shift;           # take first arg out of @ARGV
}