diff --git a/Utils/build-and-package.pl b/Utils/build-and-package.pl
new file mode 100644
index 0000000000..19c2432ee8
--- /dev/null
+++ b/Utils/build-and-package.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+# yes, I know that this task can be done by more simple .bat, but perl script is more portable between OS
+
+
+use strict;
+use Archive::Extract;
+use Archive::Zip;
+use File::Copy;
+use File::Path;
+
+print "Start compiling...\n";
+chdir("..");
+#system("mvn clean install");
+chdir("Mage.Client");
+system("mvn assembly:assembly");
+chdir("../Mage.Server");
+system("mvn assembly:assembly");
+chdir("..");
+mkdir("temp");
+chdir("temp");
+move("../Mage.Client/target/mage-client.zip", "client.zip");
+move("../Mage.Server/target/mage-server.zip", "server.zip");
+copy("../Utils/release/startMage.bat", "startMage.bat");
+
+my $f = Archive::Extract->new( archive => "client.zip");
+$f->extract( to => "client/");
+$f = Archive::Extract->new( archive => "server.zip");
+$f->extract( to => "server/");
+unlink("client.zip");
+unlink("server.zip");
+
+my $zip = Archive::Zip->new();;
+$zip->addTree("client", "client");
+$zip->addTree("server", "server");
+$zip->addFile("startMage.bat");
+$zip->writeToFileNamed("../mage-bundle.zip");
+chdir("..");
+
+rmtree("temp");
\ No newline at end of file
diff --git a/Utils/release/startMage.bat b/Utils/release/startMage.bat
new file mode 100644
index 0000000000..8916554d90
--- /dev/null
+++ b/Utils/release/startMage.bat
@@ -0,0 +1,5 @@
+@ECHO OFF
+cd ./client
+call startClient
+cd ../server
+call startServer
\ No newline at end of file