$ Cwd::cwd()
$ /yummy/fudge
$
$ print Cwd::cwd(),$/
C:/yummy/fudge
$
$ Data::Dump::Streamer::Dump( Cwd::cwd() )
$VAR1 = 'C:/yummy/fudge';
$ [ Cwd::cwd() ]
$ARRAY1 = [ 'C:/yummy/fudge' ];
$ ( Cwd::cwd() )
$ /yummy/fudge
$ exit