#! /usr/bin/perl

$file= "/root/testlog" ;
$fd_file ;
$line ;
# open ($fd_file, '<:encoding(UTF-8)', $file) or die '<:encoding(UTF-8)', or die "Could not open file '$file' $!" ;

# while (<$fd_file>)

$line = `tail -n 20 $file` ;

if ($line =~ m/[gc][old]/)
{
    print "coucou tu ve voir ma bite" ;
    exit(2) ;
}
else
{
    print "alles gut" ;
    exit(0) ;
}