#!/usr/bin/perl
use Foo qw(foobar);
$bar = "hi";    
foobar();