sub UNIQUE::print{print 'Hello World!'}
UNIQUE->print(333);

sub UNIQUE::print{ print "\nMuhahaha! @_ \n"; }
UNIQUE->print(65.65.65.65);   # Okay this is weird.

##</code><code>##

sub {5};

##</code><code>##

my $five = sub { 5 };
print $five->();

##</code><code>##

sub Red
{
  sub LittleRed{'red'};  # sub within a sub
  LittleRed;             # returns 'red'
}
print "\nPerl is getting confused here..." . Red;
print "\n\n";

print LittleRed;

##</code><code>##

sub Y{
    my$i=0;
    $i while($i++<10);
}
print"\nYES>".Y;

##</code><code>##

sub DDD { 0; 1; 2; 3; 4; 5; }

print DDD;

##</code><code>##

sub DDD { 0, 1, 2, 3, 4, 5, }