Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;

my $var = '';
my @array = ();

foreach my $line (<DATA>) {

exit;