package Foo;

use vars qw( $foo );

$foo = 1;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Foo;

print "$Foo::foo\n";
print "$Foo::fooo\n";

##</code><code>##

Name "Foo::fooo" used only once: possible typo at usefoo.pl line 7.
1
Use of uninitialized value in concatenation (.) or string at usefoo.pl line 7.