Help for this page

Select Code to Download


  1. or download this
    use Foo;
    my $name = Foo::test("TEST");
    print "Name: $name\n";
    
  2. or download this
    package Foo;
    
    ...
        my $thing = shift;
        return $thing;
    }
    
  3. or download this
    use Foo qw(test);
    my $name = test("TEST");
    print "Name: $name\n";