C:\Projekte>type tmp.pl
#!/usr/bin/perl -w
use strict;

my $foo;
print $foo
__END__
C:\Projekte>perl tmp.pl
Use of uninitialized value in print at tmp.pl line 5.