#!/usr/bin/perl -w
use strict;
package one;
require Exporter;
our @ISA = ("Exporter");
our @EXPORT = qw(foo);
sub foo {
    print "how do you do\n";
}