use strict;

package anfang;

my $sessionid = param('SESSIONID');

package alles_andere;

&modify_sid;
sub modify_sid {
   my $new_sessionid = get_new_sid();
   $anfang::sessionid = $new_sessionid;
}

package ende;

print $anfang::sessionid;