diff --git a/random-selection b/random-selection
index f71f1c6b..c605d6f0 100644
--- a/random-selection
+++ b/random-selection
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use lib '/Users/gene/sandbox/MIDI-Util/lib';
-use MIDI::Util;
+use MIDI::Util qw(setup_score);
 use MIDI::Simple;
 use Music::AtonalUtil;
 use Text::Levenshtein qw(distance);
@@ -55,7 +55,7 @@ my %name = int2name(@notes);
 my @pitches = map { $name{$_} } @sample;
 print "@pitches\n";
 
-my $score = MIDI::Util::setup_score( patch => 0 );
+my $score = setup_score( patch => 0 );
 
 $score->n( 'qn', $_ ) for @pitches;