use App::SCS;
use IO::All;
-use File::Tempdir;
+use File::Temp qw/tempdir/;
-my $tmpdir = File::Tempdir->new();
-my $dir = io($tmpdir->name);
+my $tmpdir = tempdir;
+my $dir = io($tmpdir);
$dir->catdir('share/pages/cachetest')->mkpath;
$dir->catdir('share/templates')->mkpath;