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;

##</code><code>##

$ perl -MHTML::Template -e'print join "\n", keys %INC' | sort
base.pm
Carp.pm
Exporter.pm
File/Spec.pm
File/Spec/Unix.pm
HTML/Template.pm
integer.pm
strict.pm
vars.pm
warnings.pm
warnings/register.pm