#!/usr/bin/perl

use warnings;
use strict;

sub hprint; # h fuer havi... :-)

my $string = "Test";
open(LGD, ">Logdatei.txt") or die $!;
if ($string eq "Test") {
  hprint "OK\n";
} # if
else {
  hprint "KO\n";
} # else
close(LGD) or die $!;

sub hprint {
   print @_;
   print LGD @_;
} # sub hprint