use strict;
use warnings;
my $len = length(undef); # Zeile 4
print $];

# Use of uninitialized value in length at ... line 4.
# 5.006001