#! /usr/bin/perl -l
use strict;
use warnings;

package foobar;

# returns foo
sub foo {
  return "foo";
}

# returns bar
sub bar {
  return "bar";
}

package main;

print foobar::foo();

__END__