z448

perl -E 'if(`which setxkbmap`){ `setxkbmap -option \"caps:ctrl_modifier\"`}'

z448

package Clipboard;

use Exporter 'import';
our @EXPORT_OK = qw( clip );
our $VERSION = '0.03';

use warnings;
use strict;

sub os {

z448

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Data::Dumper; 
use HTTP::Tiny;
use JSON::PP;
use Term::ANSIColor;

z448

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Data::Dumper;
use HTTP::Tiny;
use JSON::PP;
use Term::ANSIColor;

z448

#!/usr/local/bin/perl

use 5.010;
use warnings;
use strict;

# create activator listener for command
# usage: actlsr 'ls -la'
#        respring device and assign to some gesture

z448

#!/usr/local/bin/perl

use 5.010;
use strict;
use warnings;

use Mac::PropertyList;

my $data;
{

z448

#!/usr/local/bin/perl

# This chunk of stuff was generated by App::FatPacker. To find the original
# file's code, look for the end of this BEGIN block or the string 'FATPACK'
BEGIN {
my %fatpacked;

$fatpacked{"Perl/Mac/ProperyList/ReadBinary.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'PERL_MAC_PROPERYLIST_READBINARY';
  package Mac::PropertyList::ReadBinary;use strict;use warnings;use vars qw($VERSION);use Carp;use Data::Dumper;use Encode qw(decode);use Mac::PropertyList;use Math::BigInt;use MIME::Base64 qw(decode_base64);use POSIX qw(SEEK_END SEEK_SET);use XML::Entities ();$VERSION='1.41';__PACKAGE__->_run(@ARGV)unless caller;sub new {my($class,$source)=@_;my$self=bless {source=>$source },$class;$self->_read;$self}sub _source {$_[0]->{source}}sub _fh {$_[0]->{fh}}sub _trailer {$_[0]->{trailer}}sub _offsets {$_[0]->{offsets}}sub _object_ref_size {$_[0]->_trailer->{ref_size}}sub plist {$_[0]->{parsed}}sub _object_size {$_[0]->_trailer->{object_count}* $_[0]->_trailer->{offset_size}}sub _read {my($sel

z448

die bless [], 'Dies';
package Dies;
use overload '""' => 'dies';
sub dies { return '' }

z448

#!/bin/bash

for i in `find ~/*/Data/A* -name ".com*"`;do if [[ `cat $i|grep iQ` ]]; then find `dirname $i` -name '*.mp4'; fi; done

z448

#!/usr/local/bin/perl

use 5.010;
use warnings;
use strict;

use Getopt::Std;
use Filesys::Notify::Simple;
use File::Path;
use JSON::PP;