mshock

## ppm_list.csv

          
            name
            version
            files
            size
            area

            
              ANSIColor
              3.00
              0
              0
              perl

            
              ActivePerl-CPAN-Config
              1.0
              2
              1900
              perl

            
              ActivePerl-Config
              1.3
              2
              17865
              perl

            
              ActivePerl-DocTools
              2.4
              13
              63474
              perl

            
              ActivePerl-IIS-Config
              1.0
              0
              0
              perl

            
              ActivePerl-PPM
              4.14
              64
              622271
              perl

            
              ActiveState-PerlCritic
              10.0
              24
              191887
              perl

            
              ActiveState-RelocateTree
              1.4
              4
              29505
              perl

            
              ActiveState-Scineplex
              1.1
              7
              86307
              perl

## reconst_truth.pl
# useful to implement in many scripts that need to verify user input from CLI or config files
use constant REGEX_TRUE => qr/^\s*(?:true|(?:t)|(?:y)|yes|(?:1))\s*$/i;

## tab.pl
#! /usr/bin/perl -w

use Term::ReadKey;

# make STDOUT hot
$| = 1;
$string = '';
$done = 0;
# get your dir listing
opendir($dh, '.');

## restart_services.pl
# /usr/bin/perl
# child process to background
# poll windows services and re-enable + start them

use Win32::Service;
use Win32::OLE;
use strict;

# set logfile location
my $logfile = 'log.txt';

## .phoenix.js
/*

   ▄███████▄    ▄█    █▄     ▄██████▄     ▄████████ ███▄▄▄▄    ▄█  ▀████    ▐████▀
  ███    ███   ███    ███   ███    ███   ███    ███ ███▀▀▀██▄ ███    ███▌   ████▀
  ███    ███   ███    ███   ███    ███   ███    █▀  ███   ███ ███▌    ███  ▐███
  ███    ███  ▄███▄▄▄▄███▄▄ ███    ███  ▄███▄▄▄     ███   ███ ███▌    ▀███▄███▀
▀█████████▀  ▀▀███▀▀▀▀███▀  ███    ███ ▀▀███▀▀▀     ███   ███ ███▌    ████▀██▄
  ███          ███    ███   ███    ███   ███    █▄  ███   ███ ███    ▐███  ▀███
  ███          ███    ███   ███    ███   ███    ███ ███   ███ ███   ▄███     ███▄
 ▄████▀        ███    █▀     ▀██████▀    ██████████  ▀█   █▀  █▀   ████       ███▄
name	version	files	size	area
ANSIColor	3.00	0	0	perl
ActivePerl-CPAN-Config	1.0	2	1900	perl
ActivePerl-Config	1.3	2	17865	perl
ActivePerl-DocTools	2.4	13	63474	perl
ActivePerl-IIS-Config	1.0	0	0	perl
ActivePerl-PPM	4.14	64	622271	perl
ActiveState-PerlCritic	10.0	24	191887	perl
ActiveState-RelocateTree	1.4	4	29505	perl
ActiveState-Scineplex	1.1	7	86307	perl
	# useful to implement in many scripts that need to verify user input from CLI or config files
	use constant REGEX_TRUE => qr/^\s(?:true\|(?:t)\|(?:y)\|yes\|(?:1))\s$/i;
	#! /usr/bin/perl -w

	use Term::ReadKey;

	# make STDOUT hot
	$\| = 1;
	$string = '';
	$done = 0;
	# get your dir listing
	opendir($dh, '.');
	# /usr/bin/perl
	# child process to background
	# poll windows services and re-enable + start them

	use Win32::Service;
	use Win32::OLE;
	use strict;

	# set logfile location
	my $logfile = 'log.txt';
	/*

	▄███████▄ ▄█ █▄ ▄██████▄ ▄████████ ███▄▄▄▄ ▄█ ▀████ ▐████▀
	███ ███ ███ ███ ███ ███ ███ ███ ███▀▀▀██▄ ███ ███▌ ████▀
	███ ███ ███ ███ ███ ███ ███ █▀ ███ ███ ███▌ ███ ▐███
	███ ███ ▄███▄▄▄▄███▄▄ ███ ███ ▄███▄▄▄ ███ ███ ███▌ ▀███▄███▀
	▀█████████▀ ▀▀███▀▀▀▀███▀ ███ ███ ▀▀███▀▀▀ ███ ███ ███▌ ████▀██▄
	███ ███ ███ ███ ███ ███ █▄ ███ ███ ███ ▐███ ▀███
	███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ▄███ ███▄
	▄████▀ ███ █▀ ▀██████▀ ██████████ ▀█ █▀ █▀ ████ ███▄