#!/usr/bin/perl

use strict;

my $system="localhost";
my $connected="true";

if ($system eq "hacked") {turn_off_interfaces();}

sub turn_off_interfaces{
while ($system != $connected){
        check_logs();
        find_backdoors();
        patch_system();
        }continue{rebooting();
}
}
sub turn_off_interfaces{system("ifconfig int down");}
sub check_logs{system("tail -f /var/log/messages");}
sub find_backdoors{system("netstat -a");}
sub patch_system{system("cd /usr/src;patch</path/to/patch");}
sub rebooting{system("reboot");}
warn crypt("all","data");
exit;