#!perl 

use 5.20;
use strict;
use warnings;
use Config qw/config_sh/;

open my $fh, '>', '.\configlist.txt' or die $!;
print {$fh} config_sh(); 
close $fh;