Select Code to Download

open(FILE, "<\HPRD_FLAT_FILES_090107\PROTEIN_Architecture.txt") or die
+("Unable to open file");
open(OUTPUT1, ">$output") or die("Unable to open file");

$infile = "/HPRD_FLAT_FILES_090107/PROTEIN_Architecture.txt";
open(FILE, "<", $infile)
    or die("Open failed for reading $infile: $!");

open(OUTPUT1, ">", $output) or die "Open failed for writing $output: $
+!");

@hprdArchi = split /\n/,$tar->get_content("HPRD_FLAT_FILES_090107/PROT
+EIN_Architecture.txt");