#!/usr/bin/perl

use warnings;
use strict;

my $string = "havi";

if ($string eq "havi") {
   print "Hallo\n";
} # if

1;