diff --git a/charting/shortkeys.pl b/charting/shortkeys.pl
index fc900c3c..f467dd8c 100755
--- a/charting/shortkeys.pl
+++ b/charting/shortkeys.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl -w
 
 #
 # shortkeys.pl
diff --git a/charting/shortkeys_inner.pl b/charting/shortkeys_inner.pl
index 256c3d4b..1ae38d4e 100755
--- a/charting/shortkeys_inner.pl
+++ b/charting/shortkeys_inner.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl -w
 use POSIX qw(floor);
 use File::Temp qw(tempfile);
 use Date::Format;