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

my $x = undef;
print "$x\n";
$x = 0;
print "$x\n";

#prints: 
#Use of uninitialized value $x in string at C:\TEMP\perl1.pl line 5.

0