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