#! perl -slw
#use HTTP::Status;
require HTTP::Status; import HTTP::Status;

print RC_FORBIDDEN;
__DATA__
P:\test>test4 		## This is with c<use>
403 

P:\test>test4		## This is with require/import
Name "main::RC_FORBIDDEN" used only once: possible typo at P:\test\test4.pl line 5.
print() on unopened filehandle RC_FORBIDDEN at P:\test\test4.pl line 5.