diff --git a/scripts/pacpruner-calculator b/scripts/pacpruner-calculator
index 3847ac3..94523e9 100755
--- a/scripts/pacpruner-calculator
+++ b/scripts/pacpruner-calculator
@@ -11,8 +11,6 @@ EOUSAGE
 
 [ -z "$1" ] && dedcat "$usage"
 
-read -d '' PERL <<EOPERL
-print $(cat "$1" | xargs du | awk '{print $1}' | tr $'\n' '+' | sed 's/+$//')
-EOPERL
+kib_terms=$(cat "$1" | xargs du | awk '{print $1}' | tr $'\n' '+' | sed 's/+$//')
 
-perl -e "$PERL"' . "\n";'
+perl -e "print $kib_terms"' . "\n";'