Select Code to Download

print "${line}";

#!/usr/bin/perl

...
  }
  $currentline++
}

#!/usr/bin/perl -w

...
  }
}  
close DATA;