Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open (FILE, '>', $SCU) or die "Could not open file $SCU: $!";
print FILE @newlines;
close (FILE);