#!/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);
}