#!/usr/bin/perl -w use LWP::Simple qw(get); use LWP::UserAgent; use HTTP::Request; use strict; use warnings; use CGI qw(:standard); my $ua=LWP::UserAgent->new; #$ua->proxy('http', 'http://10.8.0.1:8080'); #open (my $org, ">", "organisms.txt"); my $orgurl = 'http://rest.kegg.jp/list/organism'; my $req = HTTP::Request->new(GET => $orgurl); my $res = $ua->request($req); my $orglist = $res->content; #or die "Cant retrive URL $!"; open (my $org, ">", "organisms.txt"); print $org $orglist; close $org; print "Content-Disposition:attachment;filename=organisms.txt\n\n"; open FILE,") { print $_;} close FILE; #print "Content-Type: text/html\n\n"; #print< # #

#

G2KO

#Output generated.
#Please download the output file and upload it here on KEGG Mapper Pathway Reconstruct tool. #
#
# # #EOF #print "Content-Disposition:attachment,filename=output.txt\n\n"; #print "Content-type: text/plain\n\n";