Select Code to Download

read through the file "$file"
when a starting session is found
    open the file "$file" again, as file2
    read through file2 until the end of the session is found

my %session_start;
my %session_end;
...
        };
    }
};

for my $session (sort keys %session_start) {
    print "Session: $session - $session_start{ $session } - $session_e
+nd{ $session }\n";
};