#!/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';
[download]