my $first_line = <DATA>;
 
while (<DATA>) {
  ...
}
[download]

or

while (<DATA>) {
  next if $. == 1;
}
[download]

Update: Forgot the obvious case. The first being preferred (imo) so as not to execute each iteration.