#! /usr/bin/perl

use strict;
use warnings;my $var = 0;

unless($var == 0){
  print "Nicht 0";
}
elsif($var == 0){
  print "Gleich 0";
}