#!/usr/bin/perl -w

use strict;

my $str;

# Warnings: Use of initialized values!
if ($str eq undef) {
	print "\$str is undefined\n";
} else {
	print "\$str is defined\n";
}