#!/usr/bin/perl -w
use strict;

use Cwd;
print "cwd() is:\t\t",cwd(),"\n";
print "should be:\t\t/home/me/\n\n";

print "\$ENV{PWD} is:\t\t",$ENV{PWD},"\n";
print "should be: \t\t/home/me/\n\n";

print '`pwd` is:',"\t\t",`pwd`;
print "should be:\t\t/home/me/\n\n";

# both work fine
open(FH,'<','test.txt') or die "$!\n";
open(FH,'<','/home/me/test.txt') or die "$!\n";