diff --git a/perl/ping.pl b/perl/ping.pl
new file mode 100755
index 0000000..ae8807c
--- /dev/null
+++ b/perl/ping.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Net::Ping;
+
+while ( 0 == 0 ) {
+  my $host = "10.0.0.1";
+  my $p = Net::Ping->new();
+  system( "/usr/local/bin/truecrypt --text --dismount --force > /dev/null 2>&1" ) if ( ! $p->ping( $host ) );
+  $p->close();
+  sleep(1);
+}