Select Code to Download

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.

sub {5};

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

sub Red
{
...
print "\n\n";

print LittleRed;

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

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

print DDD;

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