perl -e 'package Nether; our $val = 2000; my $_nonesuch = 3000;  package main; print __PACKAGE__ . qq~\t~ . $_nonesuch;'