#!/usr/bin/perl use Foo qw(blorf);