Select Code to Download

opendir(DIR,$str);

for my $key (keys %hash){
  my $outputfile = "output_$key";
...
  print OUT $hash{$key};
  close OUT;
}

use File::Spec;
...
...
  $outputfile = File::Spec->catfile($str,$outputfile);
  ...
}

#!/usr/bin/perl
use strict;
...
                :344: // comment
test/wrong/case3:123: //comment