nkwhr

#!perl

use sane;
use Config::Pit;
use LWP::UserAgent;

die unless @ARGV;

my $message = $ARGV[0];

nkwhr

#!perl

use sane;
use Text::Diff;

my ($a, $b) = '';

system 'clear';

say 'Paste A (Ctrl-D to end)';

nkwhr

#!perl
use strict;
use warnings;

use Furl;
use Imager;
use Text::AAlib qw(:all);

my $url = 'https://2.gravatar.com/avatar/0e2fa4d5e82a2addb50f03414870ea46?d=https%3A%2F%2Fidenticons.github.com%2F76d9ed40d8b87622cbfa7bc12cffbcdb.png&s=420';
my $ua  = Furl->new;

nkwhr

#!/bin/sh

_RSS=0
_SHARED=0
_PID=$1
_SMAPS=`cat /proc/$_PID/smaps`

for i in  `echo "$_SMAPS" | grep 'Rss' | awk '{print $2}'`; do
    _RSS=`expr $_RSS + $i`
done

nkwhr

#!/usr/bin/env perl

use Mojolicious::Lite;
use File::Basename;
use Plack::Builder;
use HTML::TreeBuilder::XPath;
use DBI;

get '/' => sub {
    my $self = shift;