package Foo; sub test { return "test"; } 1; package main; print STDOUT Foo::test(); exit 0;