Select Code to Download

package Foo;

use vars qw( $foo );

$foo = 1;

#!/usr/bin/perl -w

use strict;
...

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

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.