my ( $just_name, $just_ext );
  my $last_dot_pos = rindex $filename, '.';
  if ( $last_dot_pos > -1 )
  {
      $just_name = substr $filename, 0, $last_dot_pos;
      $just_ext  = substr $filename, $last_dot_pos+1;
  }
  else
  {
      $just_name = $filename;
      $just_ext  = undef;
  }