Read configuration file in Perl

Read-Config.pl

#/usr/bin/perl
use strict;
use warnings;


my $FileName = "Config.ini";
my %UserConfiguration;

open(CONFIG, "<:encoding(UTF-8)", $FileName) or die "Failed to open configuration: $FileName\n";

while (<CONFIG>) {
    chomp;
    s/#.*//;
    s/^\s+//;
    s/\s+$//;
    next unless length;
    my ($Var, $Val) = split(/\s*=\s*/, $_, 2);

    $UserConfiguration{$Var} = $Val;
}

while (my ($k, $v) = each %UserConfiguration) {
    print "$k: $v\n";
}

my $Status = system("notepad", $FileName);