Select Code to Download

  my ( $just_name, $just_ext );
  my $last_dot_pos = rindex $filename, '.';
...
      $just_name = $filename;
      $just_ext  = undef;
  }