use 5.010;
use strict;
use LWP::UserAgent;

{
  package ClassName;
  sub new { bless [@_], $_[0] }
}
{
  package main;
  sub ClassName () { 'LWP::UserAgent' };
  my $obj = ClassName->new;
  say ref $obj;  # says "LWP::UserAgent"  
}