Select Code to Download

open OUT, $out || die "Can't open $out!\n";

open( OUT, $out ) || die "Can't open $out: $!\n";