Undefined subroutine &main::get_uppercase called at /usr/www/users/foobar/cgi-bin/test.pl line 9.

##</code><code>##

package Common;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(get_uppercase);
%EXPORT_TAGS = ( All => [qw(&get_uppercase)]);

sub get_uppercase {
   my ($name) = @_;
   return uc($name);
}
1;

##</code><code>##

#!/usr/bin/perl -w
use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use Common qw(:All);

my $name = "frodo";
$name = get_uppercase($name);

##</code><code>##

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

@ISA      = qw(Exporter);
@EXPORT    = ();