perl -le 'package foo ;print eval(q(__PACKAGE__));'