Select Code to Download

#!user/local/perl
use Cwd;

#!user/local/perl
use strict; use warnings; 
use Cwd;

 
  for my $c (0..$#AbsFiles){
        my $key1=undef; 
...
           ...stuff to do otherwise .. 
          } 
        } # c