worr

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Curses;

# Use the name of this program if no file is passed in
my $filename = $ARGV[0] // "comment_hili.pl";

worr

#!/usr/bin/perl

use strict;
use warnings;

use 5.012;

use Test::More tests => 18;

my @success = ("<content><test>testing</test><test>woo</test></content>",

worr

#!/usr/bin/env perl

use strict;
use warnings;
use 5.008;
 
{
    my $var;
 
    sub state_sub {

worr

#!/usr/bin/env perl

use strict;
use warnings;

use 5.010;

use Data::Dumper;
use POE qw/Component::IRC/;
use Search::Tools::SpellCheck;

worr

use 5.010;

open(my $config, ">" "$configfile") or die $!;

$output = $row->{value};
my @output = split(/\n/, $output);
if ($wroteToFile)
{
    foreach (@output)
    {

worr

#!/usr/bin/env perl

use strict;
use warnings;
use v5.10;

use Class::MOP;

my $tc_meta = Class::MOP::Class->initialize("TestClass");
$tc_meta->make_immutable(inline_constructor => 0);

worr

package Net::AFP::DSI;

use Const::Fast;
use Moose;

const our $REQ => 0x0;
const our $REPLY => 0x1;

const our $CLOSE => 0x1;
const our $CMD => 0x2;

worr

var jsconsole = (function() {
	var prompt = ">";
	var cursor = "_";
	var text = "";
	var cursor_displayed = true;
	var history = [];
	var history_cursor = -1;

	var jsconsole_div;
	var history_div;

worr

"""
Check if your password is in the linkedin password dump.
You'll need to download the dump from here: http://bit.ly/KGTusG and unzip it to combo_not.txt
"""

import hashlib
import getpass

pw = getpass.getpass('Enter your LinkedIn password: ')
sha1 = hashlib.sha1(pw).hexdigest()

worr

#include <errno.h>
#include <glib.h>
#include <glib/gprintf.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "qq_crypt.h"

#define KEY_SIZE 1024