Select Code to Download

sub print_sucky_bunny {
   my ($client) = shift @_;
...
   print $client "\n\r                      W      _\    /\"\ ";
   print $client "\n\r                    (\" ~----( ~   Y.  ) ";
}

sub create_sucky_bunny {
   my $bunny;
...
   
   return $bunny;
}

my $ascii_bunny = create_bunny();

# or

print $client create_bunny();

my $foo = "bar
baz
qux
";                # look ma, no \n's!!

my $foo = q(bar
baz
qux
);

sub create_bunny {
   my $spaces = ' ' x 20;
...
}

print $client create_bunny();