Tiago Peczenyj peczenyj

Mauro Sant'Anna é tido e havido como um dos gurus das tecnologias de desenvolvimento da Microsoft. No site dele eu [ http://www.mas.com.br/Artigos/Principal.htm ] encontro a seguinte pérola:

Open Source e Comunismo - Janeiro/2002 
ATENÇÃO: Devido a enorme quantidade de ofensas e xingamentos recebidas pelo autor da matéria, tiramos esta página do ar. A ditadura e a patrulha ideológica venceram. Viva o Grande Camarada Stalin. Longa vida a Fidel.

Não se preocupe, ó grande combatente da liberdade, da torta de maçã e do EULA! Eu manterei vivas as suas palavras, para que nunca ninguém esqueça qual o brilhante intelecto que as criou!

	package HTML;
	use strict;
	use warnings;
	use feature 'say';

	sub import {
	my $self = shift;
	my ($callpack, $callfile, $callline) = caller;

	foreach my $tag (@_) {

	import java.util.*;

	public class A {
	String name;

	public A(String name) { this.name = name; }

	public String toString(){ return "A[" + this.name + "]"; }

	public static void main ( String [] args ) {

	lala

	begin
	sddasdas
	asdasdasd
	asdasd
	end

	lolo

	#!/bin/perl

	use strict;
	use warnings;

	use JSON qw(decode_json);
	use Text::Table;
	use LWP::Simple;

	my $URL = "http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json";

	#!/bin/bash
	#
	# Este script vai consultar o json da globo.com e vai mostrar em
	# quantos estados o partido X coliga com os outros partidos
	#
	PARTIDO=${1:?favor informar o partido}
	URL=http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json

	echo "Coligações do partido $PARTIDO"

	NEW! you can install via cpan: https://metacpan.org/release/PACMAN/Acme-CatFS-0.001

	1. you should install LWP::Simple and Fuse:Simple - use cpan or cpanm
	2. you should configure the local fuse install to run as root or as common user
	3. don't forget 'fusermount -u <mountpoint>' after finish the script

	to install dependencies

	you can use regular cpan OR cpanminus ( http://search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm )

	package Maybe;

	use Moo::Role;

	has value => (is => 'ro', required => 1);

	use overload
	'>>='=> \&bind;

	sub bind {

	$ perl linguaP.pl "ola tudo bem"
	PeO PeLa PeTu PeDo PeBem

	use strict;
	use warnings;
	use feature 'say';
	use Memory::Stats;

	sub multiplicador{
	my @ini = (100..999);
	my $fim = 999;
	my @memo;
	while ($fim != 100){