#!/usr/bin/perl
use strict;
use warnings;
sub JAPH

{ Just    ();}sub      Just
{ another ();}sub      another
{ Perl    ();}sub      Perl
{ hacker  (",\n");}sub hacker

{ print((join' ',map{(split'::',(caller(3-$_))[3])[1]}(0..3)),@_);}&JAPH;