#!/usr/bin/perl --

BEGIN {
    package LWP;
    $INC{'LWP.pm'} = __FILE__;

    package LWP::UserAgent;
    $INC{'LWP/UserAgent.pm'} = __FILE__;
}
use File::Which;
my $cpan = which 'cpan';
do $cpan;