Select Code to Download

  open ONE,"<","Filename"  || die  "Cannot open the file ";

open my $one ,"<","/var/www/html/piRNA_html/UNAFold/output_folder_1.tx
+t" or die "Cannot open the file (ONE): $!";
  # Note the use of a block-scoped variable $one, 
...
  #   and "$!" added to provide the OS error message corresponding to 
+the failure
 @folder = <$one>;
close $one;