First attempt at song to perl poetry... some parts I got lazy
$i = "patient boy";
$i = wait for (1..3);
my $time -= $water{drain};
push(@everyone, "move") for (1..2);
&beg("please") if ($remain);
$location = "waiting room";
$i !~ /news/;
$i !~ /\wnews\w/;
$i !~ /news/;
$i = undef($it);
# Sitting outside of town
$everybody = "down";
$they !~ /get up/;
$dontsit = 1 while($idle);
$plan = "big suprise";
&fight while ($i =~ /what I want to be/);
$i = undef($i{mistakes}{same});
$i{know} = sub {&{$i{know}}};
$is{Function};
$location = "waiting room";
# WAITING ROOM
# I am a patient boy
# I wait, I wait, I wait
# My time is like water down a drain
# Everybody's moving, everything is moving
# Please don't leave me to remain
# In the waiting room
# I don't want the news
# I'm not a part of it
# I don't want the news
# I have no use for it
# Sitting outside of town
# Everybody's always down
# Because...
# They can't get up
# But I don't sit by idly
# I'm planning a big surprise
# I'm gonna fight for what I want to be
# I won't make the same mistakes
# Because I know how much time that wastes
# Function is the key
# In the waiting room