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

##</code><code>##

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

##</code><code>##

foreach my $line (<DATA>) {

##</code><code>##

exit;