#!/usr/bin/perl -c
#Copyright (C) Quinn Weaver, 2000. Distribute under the Artistic Lice
+nse.
use Carp; confess ('I may be biased...'); after ('a', $night); without
+ $sleep; coding ($C);
&complain;
print <<that_sucked;
(
:-(
);
that_sucked
$but,
$i;
package the_C_mentality; $into->a_few_words;
eval ($C)
and realize(); no C_mentality; is_useful; for (;$gettingThingsDone;){
break OUT_OF; $this, system ('of', $mental{oppression});
foreach $idiom (@the_C_pantheon) {
eval $idiom;
require 'some explanation'; for ($idiom;;){
if ($idiom->is_good){
use it_in_Perl ('instead');}
if ($idiom->is_bad){
carp "No surprise there.";
if ($idiom->is_awkward and $pointless or (['even', 'dangerous'])){
warn "$the_world: Yet another pointless C'ism";
delete $idiom{''} ;}
}}}}
return 'to_coding_Perl';