Print current directory using Perl

Question

I have this code to print the current directory using Perl:

use Cwd qw(abs_path);
my $path = abs_path($0);
print \"$path\\n\";

But it is di

Answer 1

Just remove the '$0'

use Cwd qw(abs_path);
my $path = abs_path();
print "$path\n";