#!/usr/bin/perl

use warnings;
use strict;
use Digest::MD5;

my $su = 'be90385edbb12bf9982932902f10c4d5';


open(FILE, "/bin/su");                                  # nervig .oO
my $md5 = Digest::MD5->new;
while (<FILE>) {
  $md5->add($_);
}

close(FILE);


if($md5->hexdigest ne $su) {
  print "Warning, files were modified :/\n";
} else {
  print "No modification :)\n";
}