perl -e'use lib qw( . ); do "something.cgi"; something->run()'
[download]

But in this case, the following will do:

perl -I. something.cgi
[download]

Update: Added missing something->run().