use strict;
use warnings;

my $filename = '.env';
if (-e $filename) {
    open my $fh, '<', $filename or die "Could not open '$filename' $!";
    while (my $line = <$fh>) {
        next if $line =~ /^\s*(#.*)?$/;
        chomp $line;
        my ($key, $value) = split /\s*=\s*/, $line;
        $ENV{$key} = $value;
    }
}

# and just to display:
for my $key (sort keys %ENV) {
    printf("%-26s %s\n", $key, substr($ENV{$key}, 0, 40));
}