Select Code to Download

use Data::Dumper;

...
sub process {
  print Dumper($_[0]); # for now
}

sub process {
  my $query = shift;
...
    if ($gi_line =~ m{\|ref\|}) { ... ref found ... }
  }
}