diff --git a/scripts/update_locales.pl b/scripts/update_locales.pl
new file mode 100755
index 0000000..9351d70
--- /dev/null
+++ b/scripts/update_locales.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use File::Basename;
+use Locale::Maketext::Extract::Run 'xgettext';
+
+chdir dirname($0) . '/..';
+
+my @files = qw(vroom.pl public/js/vroom.js);
+push @files, glob('templates/default/*');
+
+foreach my $lang (map { basename(s/\.pm$//r) } glob('lib/Vroom/I18N/*.pm')){
+  xgettext(
+    '-o', 'lib/Vroom/I18N/' . $lang . '.po',
+    @files
+  );
+}