#!/usr/bin/perl

use strict;
use warnings   ;sub   Just              {print map{(split$;,(caller$_)
[$#$a])[1]}@$a};sub   another  {&Just}              ($.,$;,$_,$,)=(qw)
3 ::),",\n",$");sub   Perl     {&another}  #Just         ($,,$\,$%,$@)
@_=0..$.;$a=\@_;sub   hacker   {&Perl}     #another          (phroggy)
                               {&hacker}   #Perl
print                                      #hacker
[download]