package Cwd; require Exporter; use vars @EXPORT; @EXPORT = qw/getcwd/; sub import { my $pkg = shift; my $caller = caller; Exporter::export( $pkg, $caller, @EXPORT ); } sub getcwd { '.' } 1;