my @file = <dlthis>;

##</code><code>##

while ($line = <dlthis>) {