Select Code to Download

my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
my $val = constant($constname, @_ ? $_[0] : 0);

sub AUTOLOAD {
    my($constname);
...
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}