# Zugriff auf nicht existierende Schlüssel in ENV
# gibt einen definierten Leerstring zurück

package TieENV;

use strict;
use warnings;
use Tie::Hash;
use base ('Tie::StdHash');

sub TIEHASH{
    my $class = shift;
    my $self = {  map{ $_ => $ENV{$_} } keys %ENV };
    return bless $self, $class;
}

sub FETCH{
    my $self = shift;
    my $key  = shift;   
    return exists $self->{$key} ? $self->{$key} : '';
}

tie %ENV, __PACKAGE__;

1;