I was toying around with __PACKAGE__ just yesterday. For interpolation into strings, you can do the scalar ref-deref trick:

my $str = "I'm in package ${\__PACKAGE__}"
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print