#!/usr/bin/perl -w
use strict;

my $x;
my $y=1;
sub setx {$x =1;}

####
setx() or die "can't set X" unless $y;
print "$x";

#Use of uninitialized value $x in string at C:\TEMP\testunless.pl line 8.