use strict;
use Win32::OLE qw(in);

sub GetSessionVars {
    my %iis_sess;

    foreach my $key (in ($Session->Contents)) { 
        $iis_sess{$key} = $Session->Contents($key); 
    } 
    return \%iis_sess;
}

my $session_vars = GetSessionVars();