diff --git a/chillicount.sh b/chillicount.sh
new file mode 100755
index 0000000..fb6e88c
--- /dev/null
+++ b/chillicount.sh
@@ -0,0 +1,12 @@
+#!/bin/sh
+
+TOTSESSION=$1
+MIN=$((TOTSESSION/60))
+
+while [ $MIN -gt 0 ]; do
+clear > /dev/tty9
+echo "Sessione in corso..." > /dev/tty9
+echo "Minuti rimanenti: $MIN" > /dev/tty9
+MIN=$((MIN-1));
+sleep 59;
+done
diff --git a/chillicount1.sh b/chillicount1.sh
new file mode 100755
index 0000000..509295d
--- /dev/null
+++ b/chillicount1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+/dragas/chillicount.sh $1 &
diff --git a/chillikill.pl b/chillikill.pl
new file mode 100755
index 0000000..386bdeb
--- /dev/null
+++ b/chillikill.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use IO::Socket;
+my $sock = new IO::Socket::INET (
+                                 LocalHost => '',
+                                 LocalPort => '7071',
+                                 Proto => 'tcp',
+                                 Listen => 1,
+                                 Reuse => 1,
+                                );
+die "Could not create socket: $!\n" unless $sock;
+my $new_sock = $sock->accept();
+      while(<$new_sock>) {
+#         print $_;
+#	system("/usr/bin/killall VBoxSVC");
+	system("/usr/bin/pkill -9 X");
+        system("/usr/bin/pkill -9 perl");
+      }
+      close($sock);
diff --git a/chillilisten.pl b/chillilisten.pl
new file mode 100755
index 0000000..20f8c83
--- /dev/null
+++ b/chillilisten.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use IO::Socket;
+my $sock = new IO::Socket::INET (
+                                 LocalHost => '',
+                                 LocalPort => '7070',
+                                 Proto => 'tcp',
+                                 Listen => 1,
+                                 Reuse => 1,
+                                );
+die "Could not create socket: $!\n" unless $sock;
+my $new_sock = $sock->accept();
+      while(<$new_sock>) {
+#  print $_;
+	system("sudo /dragas/chillicount1.sh $_");
+	system("/usr/bin/sudo /dragas/launchde.sh");
+	system("/usr/bin/pkill -9 X");
+	system("/usr/bin/pkill -9 perl");
+      }
+      close($sock);
diff --git a/launchbrowser.sh b/launchbrowser.sh
new file mode 100755
index 0000000..9bc5aa5
--- /dev/null
+++ b/launchbrowser.sh
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+perl /dragas/chillilisten.pl &
+perl /dragas/chillikill.pl &
+x11docker --desktop --hostipc --user=1500 regcodrea.dragas.net/bibliochromium
+pkill -9 X;
+exit;
diff --git a/launchde.sh b/launchde.sh
new file mode 100755
index 0000000..f22e6a5
--- /dev/null
+++ b/launchde.sh
@@ -0,0 +1,4 @@
+#!/bin/bash 
+/usr/bin/x11docker --vt=2 --xorg --desktop --sharedir=/media/usb0 --lang=it --hostipc --alsa --printer --user=4242 regcodrea.dragas.net/bibliomate
+pkill -9 X;
+exit;