Select Code to Download

print "Content-type: text/plain\n\n";
my $param = 1;
...
   my $value = join('|', @$fields);
   print "$value\n";
}

import java.net.URL;
import java.net.HttpURLConnection;
...
}
in.close();
con.disconect();