$ perl -w
my $akt_root_dir = 'G:\Dir';

print "$akt_root_dir\n";
__END__
G:\Dir

$ perl -w
my $akt_root_dir = 'G:\\Dir';

print "$akt_root_dir\n";
__END__
G:\Dir