#!/usr/bin/perl -w
use strict;

new JAPH::Just && new JAPH::another && new JAPH::Perl && new JAPH::hacker;
sub a{(split(/::/,shift))[-1];}
package JAPH::Just;sub new{print(main::a(shift).' ');}
package JAPH::another;sub new{print(main::a(shift).' ');}
package JAPH::Perl;sub new{print(main::a(shift).' ');}
package JAPH::hacker;sub new{print(main::a(shift).chr 10);}