Help for this page

Select Code to Download


  1. or download this
    Undefined subroutine &main::get_uppercase called at /usr/www/users/foo
+bar/cgi-bin/test.pl line 9.
  2. or download this
    package Common;

...
   return uc($name);
}
1;
  3. or download this
    #!/usr/bin/perl -w
use warnings;
...

my $name = "frodo";
$name = get_uppercase($name);
  4. or download this
    use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

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