my $Current_Dir = `pwd`;
print STDOUT "the current directory is $Current_Dir";

##</code><code>##

open my $output, ">", "$Current_Dir/foo.txt";

##</code><code>##

use Cwd;
my $Current_Dir = getcwd;
print STDOUT "the current directory is $Current_Dir\n";