Select Code to Download

sub get_split {
  my $filename = shift;
  my $switches = shift;
...

  return \%filesplit;
}