sub micro { my $string = shift; my( $id, $session ) = split( /\./, $string, 2 ); return( $id, $session ); }