#!/usr/bin/perl
use strict;
use warnings;

my $y = 1;
my $x = ($y or die "leer");
print "$x\n";

$y = 0;
$x = ($y or die "leer");
print "$x\n";