Select Code to Download

sub upload
  { my( $data)= @_;
    
...
    # as they come back from $SCRIPT
    my $result= $ua->request($req)->content;
  }

sub exe_script
  { my( $data)= @_;
    my $req= POST $SCRIPT,
...
    print {$script} $content;
    exit;
  }