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

new JAPH::Just && new JAPH::another && new JAPH::Perl && new JAPH::hac
+ker;
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);}

[download]
Maybe more silly than obfuscated?

Replies are listed 'Best First'.
Re: Packaged
by tachyon (Chancellor) on May 24, 2001 at 14:24 UTC 
    Hmm, you might like this:

tachyon

$\=' ';
sub AUTOLOAD{@_=caller();print shift}
package Back;::();
package To;::();
package The;::();
package Drawing;::();
package Board;::();

    [download]
[reply]
[d/l]
      a much better method, thanks :D
[reply]

Back to Obfuscated Code