diff --git a/tools/songdb.pl b/tools/songdb.pl
index 245456079b..2e34360f5a 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -294,11 +294,7 @@ sub dumpint {
 
 #    print "int: $num\n";
 
-    printf DB ("%c%c%c%c",
-               $num>>24,
-               ($num&0xff0000)>>16,
-               ($num&0xff00)>>8,
-               ($num&0xff));
+    print DB pack "N", $num;
 }
 
 if (!scalar keys %entries) {