diff --git a/lib/Slic3r/Test.pm b/lib/Slic3r/Test.pm
index 53d6d1024..6471ae123 100644
--- a/lib/Slic3r/Test.pm
+++ b/lib/Slic3r/Test.pm
@@ -7,7 +7,6 @@ require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(_eq);
 
-use IO::Scalar;
 use List::Util qw(first);
 use Slic3r::Geometry qw(epsilon X Y Z);
 
diff --git a/t/svg.t b/t/svg.t
index 6092efe24..47d24ceb8 100644
--- a/t/svg.t
+++ b/t/svg.t
@@ -10,6 +10,7 @@ BEGIN {
 
 use Slic3r;
 use Slic3r::Test;
+use IO::Scalar;
 
 {
     my $print = Slic3r::Test::init_print('20mm_cube');
diff --git a/utils/gcode_sectioncut.pl b/utils/gcode_sectioncut.pl
index afc011ce8..e83f3fcda 100644
--- a/utils/gcode_sectioncut.pl
+++ b/utils/gcode_sectioncut.pl
@@ -11,7 +11,6 @@ BEGIN {
 }
 
 use Getopt::Long qw(:config no_auto_abbrev);
-use IO::All;
 use List::Util qw(max);
 use Slic3r;
 use Slic3r::Geometry qw(X Y);