package Foo;                 # This line is new
use strict;
use warnings;
use base qw(Exporter);       # This line is new
our @EXPORT_OK =qw($c foo);  # This line is new, stuff the caller MAY import to use it unqualified
our $c = 5;
sub foo {
    print $c;
}

1;