Stanislaw Pusep creaktive

## gist:7268996
#!/usr/bin/perl


use Mysql;
use strict;
use vars qw($school_name);
use vars qw($pass);

require "./cgi-lib.pl";

## 0_reuse_code.js
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

## google_twunter_lol
easterEgg.BadWorder.list={
"4r5e":1,
"5h1t":1,
"5hit":1,
a55:1,
anal:1,
anus:1,
ar5e:1,
arrse:1,
arse:1,

## -Mojo
perl -Mutf8::all -Mojo -E 'say$_->{name}for@{g("ws.spotify.com/search/1/album.json?q=Deep Purple")->json->{albums}}'

## socks-proxy.pl
#!/usr/bin/env perl
use 5.010;
use strict;
use utf8;
use warnings qw(all);

use Carp qw(croak);
use IO::Socket;

my $proxy = IO::Socket::INET->new(
	#!/usr/bin/perl



	use Mysql;
	use strict;
	use vars qw($school_name);
	use vars qw($pass);

	require "./cgi-lib.pl";
	// Use Gists to store code you would like to remember later on
	console.log(window); // log the "window" object to the console
	easterEgg.BadWorder.list={
	"4r5e":1,
	"5h1t":1,
	"5hit":1,
	a55:1,
	anal:1,
	anus:1,
	ar5e:1,
	arrse:1,
	arse:1,
	#!/usr/bin/env perl
	use 5.010;
	use strict;
	use utf8;
	use warnings qw(all);

	use Carp qw(croak);
	use IO::Socket;

	my $proxy = IO::Socket::INET->new(