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

use Foo;

my $hr = { name => 'hashref' };
my $obj = new Foo;

## OO method call
$obj->bar;

## imperative call, but since $obj is a blessed object,
## this is equivalent to the OO call
Foo::bar($obj);	

## imperative call		
Foo::bar($hr);