#!/usr/bin/perl -w use strict; use lib qq~./mydir~; require qq~./code.pm~; #use Foo; print Foo::foo(); 1;