use Foo qw(procedure1);

procedure1(foo bar quux);

my $f = Foo->new(some_attribute => baz);
$f->some_method;