Sorry - more song lyrics, but I heard this on the radio this morning (yes yes - I'm in the 'Oldies FM' demographic{g}), and just had to have a go at "re-factoring" it. :) 
#!/usr/bin/perl

package Talker;
sub new {return bless {'me'=>$_[1]}, $_[0];}
sub say {my $s=shift();print $s->{me}," say ",@_,"\n";}
1;

package main;
use strict;
my $You = new Talker("You");
my $I = new Talker("I");
my %o = ("yes"=>"no","stop"=>"go go go","high"=>"low","why"=>"I don't 
+know");

Opposite("yes"); Opposite("stop"); WeSay();
Opposite("high"); Opposite("why"); WeSay();
Why(6); do {$You->say("goodbye " x 2,"bye " x 2)}; WeSay();
Opposite("yes"); $I->say("yes, but I may mean no"); Opposite("stop");
my $t = time; while($t == time) {;} # I can stay till it's time to go.
+.. ;)
WeSay(); print Hello(8),"\n",Hello(4,"international");

sub Opposite {my $p = shift();$You->say($p);$I->say($o{$p});}
sub WeSay() {print "Oh No. ";for(0..1){GH(3);Why()};GH(1);}
sub GH {$You->say("goodbye") and $I->say(Hello($_[0]));}
sub Hello {(($_[1])?"Hela, heba, helloa.\n":"hello ")x$_[0];}
sub Why {print ((@_)?"Why " x $_[0]:"I don't know why ");}

[download]
Cheers, Ben

In reply to Hello Goodbye by benn

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.