Little script that takes a language as an input, and sets a cookie

diff --git a/changelanguage.pl b/changelanguage.pl
new file mode 100755 (executable)
index 0000000..ad616a7
--- /dev/null
+++ b/changelanguage.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use C4::Output;
+use CGI;
+
+my $query=new CGI;
+my $language=$query->param('language');
+my $url=$query->referer();
+
+setlanguagecookie($query,$language,$url);