diff --git a/ai-genetic-pro b/ai-genetic-pro
index 0b78b5e..b807a48 100644
--- a/ai-genetic-pro
+++ b/ai-genetic-pro
@@ -6,7 +6,6 @@ use warnings;
 # These pitches are then fed into contrapuntal transformations
 # and the results are appended to this "melody."
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use AI::Genetic::Pro ();
 use Data::Dumper::Compact qw(ddc);
diff --git a/all-modes b/all-modes
index 77f6024..5e423cb 100644
--- a/all-modes
+++ b/all-modes
@@ -5,7 +5,6 @@ use warnings;
 # Print out each chromatic note and its modes.
 # 12 notes x 7 modes = 84
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(midi_format);
 use Music::Scales qw(get_scale_notes);
 
diff --git a/analyze-low-level b/analyze-low-level
index 1244967..e96b3eb 100644
--- a/analyze-low-level
+++ b/analyze-low-level
@@ -6,7 +6,6 @@ use GD::Chart::Radial;
 use Math::Utils qw(uniform_01scaling);
 use Mojo::File;
 use Statistics::Basic qw(mean);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(WebService-AcousticBrainz);
 use WebService::AcousticBrainz;
 use WebService::MusicBrainz;
 
diff --git a/analyze-recordings b/analyze-recordings
index d1010a5..eb8b3bf 100644
--- a/analyze-recordings
+++ b/analyze-recordings
@@ -9,7 +9,6 @@ use File::Slurper qw(read_lines write_binary);
 use List::Util qw(max);
 use Math::Utils qw(uniform_01scaling);
 use Statistics::Basic qw(mean);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(WebService-AcousticBrainz); # Local author libs
 use WebService::AcousticBrainz;
 use WebService::MusicBrainz;
 
diff --git a/bach-choral-network b/bach-choral-network
index 40d1edc..c4c454f 100644
--- a/bach-choral-network
+++ b/bach-choral-network
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-BachChoralHarmony);
 use Music::BachChoralHarmony;
 use List::Util qw( any );
 use Graph::Easy;
diff --git a/barycenter b/barycenter
index d0d07a6..608b55c 100644
--- a/barycenter
+++ b/barycenter
@@ -4,7 +4,6 @@ use warnings;
 
 use AI::Genetic;
 use List::Util qw/ uniq /;
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Interval-Barycentric);
 use MIDI::Util qw(setup_score set_chan_patch); # https://metacpan.org/release/MIDI-Util
 use Music::Interval::Barycentric; # https://metacpan.org/release/Music-Interval-Barycentric
 use Music::Chord::Namer 'chordname';
diff --git a/barycenter3 b/barycenter3
index 122ff5e..d2875ba 100644
--- a/barycenter3
+++ b/barycenter3
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-Duration-Partition Music-Interval-Barycentric Music-ToRoman);
 
 use AI::Genetic;
 use List::Util qw/ uniq /;
diff --git a/barycenter4 b/barycenter4
index d384b21..1c6f4ce 100644
--- a/barycenter4
+++ b/barycenter4
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Duration-Partition Music-Interval-Barycentric);
 
 use AI::Genetic;
 use List::Util qw/ uniq /;
diff --git a/base-fibo2 b/base-fibo2
index c85e583..8b777ee 100644
--- a/base-fibo2
+++ b/base-fibo2
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Math::BaseConvert;
 use Math::Fibonacci 'series';
diff --git a/blue-gene b/blue-gene
index 82092bd..d5fcd13 100644
--- a/blue-gene
+++ b/blue-gene
@@ -4,7 +4,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use List::Util qw(any);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar MIDI-Drummer-Tiny MIDI-Util Music-Duration Music-Duration-Partition);
 use Music::Bassline::Generator;
 use MIDI::Chord::Guitar;
 use MIDI::Drummer::Tiny;
diff --git a/blue-monk b/blue-monk
index 27174bd..12176d1 100644
--- a/blue-monk
+++ b/blue-monk
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Chord-Guitar MIDI-Praxis-Variation MIDI-Drummer-Tiny MIDI-Util Music-Duration);
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;
 use MIDI::Praxis::Variation qw(tie_durations);
diff --git a/blues-progressions b/blues-progressions
index 10c67d7..b15af97 100644
--- a/blues-progressions
+++ b/blues-progressions
@@ -8,7 +8,6 @@ use warnings;
 
 # My write-up is: https://ology.github.io/2022/11/25/twelve-bar-jazz-practice/
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Cadence Music-MelodicDevice-Transposition); # local author libs
 
 use Data::Dumper::Compact qw(ddc);
 use Getopt::Long qw(GetOptions);
diff --git a/buzz b/buzz
index 2acf494..f1e0711 100644
--- a/buzz
+++ b/buzz
@@ -4,7 +4,6 @@ use warnings;
 
 # https://www.youtube.com/watch?v=_WviF3f1VLM
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Chord-Progression Music-Duration-Partition);
 use MIDI::Util qw(setup_score set_chan_patch midi_format);
 use Music::Chord::Progression ();
 use Music::Duration::Partition ();
diff --git a/cadences b/cadences
index 5c93ddf..aac7f42 100644
--- a/cadences
+++ b/cadences
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-ToRoman);
 use Music::Cadence; # https://metacpan.org/release/Music-Cadence
 use MIDI::Util qw(midi_format setup_score); # https://metacpan.org/release/MIDI-Util
 use Music::Chord::Note;
diff --git a/chord-melody b/chord-melody
index cca3e12..1b4be7d 100644
--- a/chord-melody
+++ b/chord-melody
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-Chord-Progression Music-Duration-Partition Music-MelodicDevice-Inversion Music-MelodicDevice-Ornamentation Music-ToRoman);
 use MIDI::Util qw(midi_format setup_score set_chan_patch);
 use Music::Cadence ();
 use Music::Chord::Progression ();
diff --git a/chord-mutate b/chord-mutate
index 7eb8871..528d596 100644
--- a/chord-mutate
+++ b/chord-mutate
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::ScaleNote;
 
diff --git a/chordal b/chordal
index 2a13013..78f6dfb 100644
--- a/chordal
+++ b/chordal
@@ -5,7 +5,6 @@ use warnings;
 use v5.24.0;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw(transposition);
 use MIDI::Util qw(set_chan_patch);
diff --git a/collision b/collision
index 5ad483e..fcfcf35 100644
--- a/collision
+++ b/collision
@@ -5,7 +5,6 @@ use warnings;
 # Attempt to simulate a wind-chime
 
 use Collision::2D qw(hash2circle dynamic_collision);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 
 my $max = shift || 32;  # Number of times to detect collisions
diff --git a/coltrane b/coltrane
index 9792750..6e775e0 100644
--- a/coltrane
+++ b/coltrane
@@ -7,7 +7,6 @@ use strict;
 use warnings;
 
 use List::SomeUtils qw(first_index);
-#use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration-Partition Music-ScaleNote);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch);
 use Music::Duration::Partition;
diff --git a/coltrane-and-company b/coltrane-and-company
index e7ec8f5..e2643e5 100644
--- a/coltrane-and-company
+++ b/coltrane-and-company
@@ -7,7 +7,6 @@ use strict;
 use warnings;
 
 use List::SomeUtils qw(first_index);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar MIDI-Drummer-Tiny Music-Duration-Partition Music-ScaleNote);
 use Music::Bassline::Generator;
 use MIDI::Chord::Guitar;
 use MIDI::Drummer::Tiny;
diff --git a/combi-duras.pl b/combi-duras.pl
index 8beafb2..1a4f14f 100644
--- a/combi-duras.pl
+++ b/combi-duras.pl
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use Algorithm::Combinatorics qw(variations_with_repetition);
 use Getopt::Long qw(GetOptions);
diff --git a/cryptomorphic b/cryptomorphic
index 9a1e4a2..44e92c3 100644
--- a/cryptomorphic
+++ b/cryptomorphic
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Prefer my local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny; # https://metacpan.org/pod/MIDI::Drummer::Tiny
diff --git a/dice-game b/dice-game
index 30772a7..ba11b76 100644
--- a/dice-game
+++ b/dice-game
@@ -13,7 +13,6 @@ use warnings;
 #   $ timidity dice-game.mid
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-ToRoman); # Local author libs
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Cadence ();
 
diff --git a/drum-circle b/drum-circle
index a08be6b..70ec247 100644
--- a/drum-circle
+++ b/drum-circle
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # For local development:
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration Music-Duration-Partition);
 
 use Data::Dumper::Compact qw(ddc);
 use Getopt::Long qw(GetOptions);
diff --git a/duration-selection b/duration-selection
index 101ae76..fe1b51b 100644
--- a/duration-selection
+++ b/duration-selection
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch);
 use Music::Duration::Partition;
diff --git a/euclidean-beats b/euclidean-beats
index 7b40d86..d41d2b3 100644
--- a/euclidean-beats
+++ b/euclidean-beats
@@ -7,7 +7,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use Math::Prime::Util::PrimeIterator ();
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-CreatingRhythms); # local author libs
 use MIDI::Drummer::Tiny ();
 use Music::CreatingRhythms ();
 
diff --git a/event-horizon b/event-horizon
index d1efaac..1fbe8f7 100644
--- a/event-horizon
+++ b/event-horizon
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::ScaleNote;
 use Music::Chord::Namer qw/ chordname /;
diff --git a/evolver.pl b/evolver.pl
index 967c6e4..f96e4ec 100644
--- a/evolver.pl
+++ b/evolver.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use Algorithm::Combinatorics qw(permutations);
 use Data::Dumper::Compact qw(ddc);
diff --git a/figured-syncopation b/figured-syncopation
index bd114a0..8131b20 100644
--- a/figured-syncopation
+++ b/figured-syncopation
@@ -16,7 +16,6 @@ use strict;
 use warnings;
 
 # use my local author libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-CreatingRhythms Music-Duration Music-Duration-Partition);
 
 use Getopt::Long qw(GetOptions);
 use Data::Dumper::Compact qw(ddc);
diff --git a/five-four-durations b/five-four-durations
index d9c7c52..b382c37 100644
--- a/five-four-durations
+++ b/five-four-durations
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation 'diminution';
 use MIDI::Util qw(set_chan_patch);
diff --git a/five-parsecs b/five-parsecs
index c213083..8caf496 100644
--- a/five-parsecs
+++ b/five-parsecs
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(setup_score set_chan_patch);
 
diff --git a/follow b/follow
index 49aac08..3416147 100644
--- a/follow
+++ b/follow
@@ -8,7 +8,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch); # https://metacpan.org/pod/MIDI::Util
 use Music::Scales;
 
diff --git a/fragments b/fragments
index 52b106a..bd6248a 100644
--- a/fragments
+++ b/fragments
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration-Partition MIDI-Util);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny;
diff --git a/fulfilled b/fulfilled
index 51d2951..67053ef 100644
--- a/fulfilled
+++ b/fulfilled
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use Data::Dumper::Compact 'ddc';
 use MIDI::Drummer::Tiny;
diff --git a/game-of-life-cluster b/game-of-life-cluster
index 3915981..edad9c5 100644
--- a/game-of-life-cluster
+++ b/game-of-life-cluster
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score); # https://metacpan.org/release/MIDI-Util
 
 use Game::Life;
diff --git a/gravity-well b/gravity-well
index 230f296..c11ccd1 100644
--- a/gravity-well
+++ b/gravity-well
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Prefer my local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Cadence Music-ToRoman);
 
 use MIDI::Util qw(setup_score set_chan_patch);
 use MIDI::Drummer::Tiny;
diff --git a/guidonian b/guidonian
index abcd75b..1ab40ee 100644
--- a/guidonian
+++ b/guidonian
@@ -7,7 +7,6 @@ use warnings;
 use Getopt::Long;
 use Music::Guidonian;
 use Music::Scales qw(get_scale_nums);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Mojo::File;
 
diff --git a/in-c b/in-c
index 6c8eb08..681fe3e 100644
--- a/in-c
+++ b/in-c
@@ -7,7 +7,6 @@ use warnings;
 # Writeup: https://techn.ology.net/terry-rileys-in-c-in-perl/
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch);
 
 my @patches = @ARGV ? @ARGV : qw( 0 8 42 69 );
diff --git a/in-c-randomized b/in-c-randomized
index 258fe31..d82ebf8 100644
--- a/in-c-randomized
+++ b/in-c-randomized
@@ -7,7 +7,6 @@ use warnings;
 # Writeup: https://techn.ology.net/terry-rileys-in-c-in-perl/
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch);
 use List::Util qw(shuffle);
 
diff --git a/jingle-bells.pl b/jingle-bells.pl
index df7c591..a246ec9 100644
--- a/jingle-bells.pl
+++ b/jingle-bells.pl
@@ -5,8 +5,7 @@
 use strict;
 use warnings;
 
-#use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-MelodicDevice-Ornamentation); # local author libraries
-use MIDI::Util qw(setup_score midi_format);
+#use MIDI::Util qw(setup_score midi_format);
 use Music::MelodicDevice::Ornamentation ();
 
 # The number of notes before resetting the note counter
diff --git a/lindenmayer-midi b/lindenmayer-midi
index 257fccc..b05bbb3 100644
--- a/lindenmayer-midi
+++ b/lindenmayer-midi
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote); # local author libraries
 
 use Getopt::Long qw(GetOptions);
 use MIDI::Util qw(setup_score set_chan_patch);
diff --git a/micro-themed b/micro-themed
index 8319c90..1321c20 100644
--- a/micro-themed
+++ b/micro-themed
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition Music-MelodicDevice-Inversion Music-MelodicDevice-Transposition);
 use Data::Dumper::Compact qw(ddc);
 use MIDI::Util qw(setup_score set_chan_patch midi_format);
 use Music::MelodicDevice::Inversion ();
diff --git a/modal-chords b/modal-chords
index eff3b65..27e0238 100644
--- a/modal-chords
+++ b/modal-chords
@@ -5,7 +5,6 @@ use warnings;
 # Play the chords of the given scale mode.
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ToRoman);
 use MIDI::Util qw(setup_score midi_format);
 use Music::Chord::Note ();
 use Music::Scales qw(get_scale_notes);
diff --git a/mode-pivot b/mode-pivot
index 1ff1621..d746038 100644
--- a/mode-pivot
+++ b/mode-pivot
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Chord-Progression Music-ModalFunction);
 use MIDI::Util qw(setup_score midi_format);
 use Music::Chord::Progression ();
 use Music::ModalFunction ();
diff --git a/mohawk b/mohawk
index 2a3c0e8..c1da30c 100644
--- a/mohawk
+++ b/mohawk
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar Music-Duration MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util); # local author libs
 use Music::Bassline::Generator;
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;
diff --git a/oddness b/oddness
index b2c3e04..755a803 100644
--- a/oddness
+++ b/oddness
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny;
diff --git a/oeis-midi b/oeis-midi
index 7c5dd01..2a59136 100644
--- a/oeis-midi
+++ b/oeis-midi
@@ -13,7 +13,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use MIDI::Util qw(setup_score);
 use Music::Scales qw(get_scale_MIDI);
diff --git a/phrase-context b/phrase-context
index 7afbb0e..b55b6bc 100644
--- a/phrase-context
+++ b/phrase-context
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw/diminution transposition/;
 use MIDI::Util qw(set_chan_patch);
diff --git a/polygenic b/polygenic
index 827d47f..6a9cbde 100644
--- a/polygenic
+++ b/polygenic
@@ -5,7 +5,6 @@ use warnings;
 use v5.24.0;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw(diminution);
 use MIDI::Util qw(set_chan_patch);
diff --git a/possible-reggae b/possible-reggae
index e9ccde2..f1a894a 100644
--- a/possible-reggae
+++ b/possible-reggae
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Chord-Guitar MIDI-Drummer-Tiny MIDI-Util);
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;
 use MIDI::Util qw(set_chan_patch);
diff --git a/prime-durations b/prime-durations
index 5524735..a74e318 100644
--- a/prime-durations
+++ b/prime-durations
@@ -10,7 +10,6 @@ use warnings;
 ###
 
 use Math::Prime::XS qw(primes);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Duration-Partition); # local author directory
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Duration::Partition;
 use Music::Scales qw(get_scale_MIDI);
diff --git a/primes b/primes
index 450f144..f8acd81 100644
--- a/primes
+++ b/primes
@@ -12,7 +12,6 @@ use warnings;
 ###
 
 use Math::Prime::XS qw(primes);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Music::Scales qw(get_scale_MIDI);
 
diff --git a/primes-layered b/primes-layered
index baca422..b019bba 100644
--- a/primes-layered
+++ b/primes-layered
@@ -18,7 +18,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util); # local author lib
 
 use Math::Prime::XS qw(primes);
 use MIDI::Util qw(setup_score set_chan_patch);
diff --git a/progressive b/progressive
index b0b38cf..d4ff174 100644
--- a/progressive
+++ b/progressive
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Cadence Music-Chord-Progression Music-Duration Music-Duration-Partition Music-ToRoman);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw(transposition);
 use MIDI::Util qw(set_chan_patch midi_format);
diff --git a/prolog-music b/prolog-music
index c0811d1..aa949ba 100644
--- a/prolog-music
+++ b/prolog-music
@@ -4,7 +4,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use AI::Prolog;
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(midi_format);
 use Music::Note ();
 use Music::Scales qw(get_scale_notes);
diff --git a/quantum b/quantum
index efa4a38..e645c77 100644
--- a/quantum
+++ b/quantum
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch midi_format);
 use Music::Scales qw(get_scale_notes);
 use Quantum::Superpositions::Lazy;
diff --git a/quasi-random-durations b/quasi-random-durations
index fab5eb0..d0c0192 100644
--- a/quasi-random-durations
+++ b/quasi-random-durations
@@ -5,7 +5,6 @@ use warnings;
 use v5.20.0;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch);
 use Music::Duration::Partition;
diff --git a/rand-drums b/rand-drums
index 0b56bc3..6df4519 100644
--- a/rand-drums
+++ b/rand-drums
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Use local libs
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration Music-Duration-Partition);
 
 use Data::Dumper::Compact qw(ddc);
 use MIDI::Drummer::Tiny;
diff --git a/random-beat b/random-beat
index c4169e5..b32d2f2 100644
--- a/random-beat
+++ b/random-beat
@@ -6,7 +6,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use String::Random;
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration);
 use MIDI::Drummer::Tiny;
 
 my $bpm    = 100;
diff --git a/random-walk b/random-walk
index 6311003..a5ec908 100644
--- a/random-walk
+++ b/random-walk
@@ -5,7 +5,6 @@ use warnings;
 # Write-up:
 # http://techn.ology.net/musical-random-walks-over-weighted-graphs
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Graph-Weighted MIDI-Util);
 use Graph::Weighted;
 use List::Util::WeightedChoice qw( choose_weighted );
 use MIDI::Util qw(setup_score);
diff --git a/reichify b/reichify
index ad00dc7..a558aa5 100644
--- a/reichify
+++ b/reichify
@@ -4,7 +4,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use List::Util qw(shuffle);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Praxis-Variation MIDI-Util Music-Interval-Barycentric);
 use MIDI::Praxis::Variation qw(transposition);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Interval::Barycentric qw(cyclic_permutation);
diff --git a/rhythm-chunks b/rhythm-chunks
index 7c4af15..5e72f80 100644
--- a/rhythm-chunks
+++ b/rhythm-chunks
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Scales qw(get_scale_MIDI);
 use Music::VoiceGen;
diff --git a/rhythm-necklace b/rhythm-necklace
index 342c861..eca4116 100644
--- a/rhythm-necklace
+++ b/rhythm-necklace
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny);
 use MIDI::Drummer::Tiny ();
 use Math::Trig qw(pi);
 use SVG qw(title);
diff --git a/rtmidi.pl b/rtmidi.pl
index 1060588..68a8466 100644
--- a/rtmidi.pl
+++ b/rtmidi.pl
@@ -8,7 +8,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util); # n.b. local author libs. comment this out unless you're me
 use Getopt::Long qw(GetOptions);
 use MIDI::RtMidi::FFI::Device ();
 use MIDI::Util qw(setup_score midi_format score2events get_microseconds);
diff --git a/sidereal-time b/sidereal-time
index dfc612e..e4c0cb2 100644
--- a/sidereal-time
+++ b/sidereal-time
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Chord::Note;
 use Music::ScaleNote;
diff --git a/stat-walk b/stat-walk
index fdc0795..b11ce7c 100644
--- a/stat-walk
+++ b/stat-walk
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Graph-Weighted MIDI-Util);
 use Graph::Weighted;
 use List::Util::WeightedChoice qw( choose_weighted );
 use MIDI::Simple;
diff --git a/stat-walk-sync b/stat-walk-sync
index e7c2343..45fe734 100644
--- a/stat-walk-sync
+++ b/stat-walk-sync
@@ -5,7 +5,6 @@ use warnings;
 # To run this, first produce a freq file with note-transition-sync.
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Graph-Weighted MIDI-Util);
 use Graph::Weighted;
 use List::Util::WeightedChoice qw( choose_weighted );
 use MIDI::Util qw(setup_score set_chan_patch);
diff --git a/string-blender b/string-blender
index 3a800d3..ee616b1 100644
--- a/string-blender
+++ b/string-blender
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Music::Scales qw(get_scale_MIDI);
 use String::Blender;
diff --git a/synch-weighted b/synch-weighted
index dce9a40..5ee1945 100644
--- a/synch-weighted
+++ b/synch-weighted
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Graph-Weighted MIDI-Simple-Drummer);
 use Graph::Weighted;
 use List::Util::WeightedChoice qw( choose_weighted );
 use MIDI::Simple::Drummer;
diff --git a/tabla b/tabla
index 334f240..061389d 100644
--- a/tabla
+++ b/tabla
@@ -11,7 +11,6 @@ use warnings;
 # $ perl tabla 8 100 1
 # $ timidity -c ~/timidity.cfg tabla.mid
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration-Partition); # local author libraries
 use MIDI::Drummer::Tiny;
 use Music::Duration::Partition;
 
diff --git a/take-the-a-train b/take-the-a-train
index 306ff30..edd025c 100644
--- a/take-the-a-train
+++ b/take-the-a-train
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Chord-Guitar MIDI-Praxis-Variation MIDI-Drummer-Tiny MIDI-Util);
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;
 use MIDI::Praxis::Variation qw(tie_durations);
diff --git a/tape-loop b/tape-loop
index 756f3b8..b49f654 100644
--- a/tape-loop
+++ b/tape-loop
@@ -14,7 +14,6 @@ use warnings;
 #
 ###
 
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use MIDI::Util qw(setup_score set_chan_patch);
 use List::Util qw(max);
diff --git a/transform-chords b/transform-chords
index 0c764cb..4e4aafc 100644
--- a/transform-chords
+++ b/transform-chords
@@ -12,7 +12,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Util Music-Chord-Progression-Transform Music-Duration-Partition); # local author libs
 use lib "$ENV{HOME}/repos/Music-Chord-Note/lib"; # my fork
 
 use Data::Dumper::Compact qw(ddc);
diff --git a/transformational b/transformational
index a3e1e66..dc1eb6f 100644
--- a/transformational
+++ b/transformational
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Data-Dataset-ChordProgressions MIDI-Util MIDI-Drummer-Tiny Music-Chord-Progression-Transform);
 
 use Data::Dumper::Compact qw(ddc);
 use Data::Dataset::ChordProgressions qw(as_hash transpose);
diff --git a/voice-gen b/voice-gen
index 46667e0..0f3b64a 100644
--- a/voice-gen
+++ b/voice-gen
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-ToRoman);
 use MIDI::Util qw(setup_score);
 use Music::Cadence;
 use Music::Note;
diff --git a/walk-prog b/walk-prog
index decc024..8c6d22b 100644
--- a/walk-prog
+++ b/walk-prog
@@ -6,7 +6,6 @@ use warnings;
 use Data::Dumper::Compact qw(ddc);
 use Music::Scales qw(get_scale_notes);
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Util MIDI-Drummer-Tiny Music-Chord-Progression Music-Duration Music-Duration-Partition);
 use Music::Bassline::Generator;
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch midi_format);
diff --git a/which-keys b/which-keys
index 67579b6..b4cb443 100644
--- a/which-keys
+++ b/which-keys
@@ -7,7 +7,6 @@ use warnings;
 
 use Set::Tiny ();
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util); # author local directory
 use MIDI::Util qw(midi_format);
 use Music::Chord::Note ();
 use Music::Note ();