I was feeling a bit philosophical today (not enough coffee maybe?)

#!/usr/bin/perl
#
# tellme.pl
########################################### 

tell $me; if (study $hard or sleep $hard) {};

tell $me; exists $heaven[$god] or reverse;

tell $me; $why ? $is : pop @music eq $so_bland_nowadays;

tell $me;
  $why ? $it_is : my $fscking_burglar;alarm 
  ($always_goes_in . abs($#night/2));

tell $me; $why ? 
  if ($i . wantarray) { $i; return scalar @inevitably;} :
  $dammit;

tell $me; read $quietly, $do_dishes, $have_kids; ++$age
  or dump $girlfriend;

our $economy; import cars, nike_shoes, luxuries, at_huge_cost;
while($people_doing_work) {
        $wages--; $unions-- and !$complain or die ;
}
tell $me; sin() ? 1 : 0;

tell $me or sleep($me);no sort; $will_get
  and eof($me);
[download]