Select Code to Download

  next until $. >1;

    next if $_ =  /^done/;

    next if $_= $_=~/^done/;

    last if /^done/;
    #or
    #last if $_=~/^done/;

my @contents;
my $header=<PAST>; # extract the first line
...
    #chomp;            # uncomment if you dont want newlines in conten
+ts.
    push @contents,$_; # add the line to the buffer
}

my @contents;
my $header=<PAST>; # extract the first line
...
    #chomp;            # uncomment if you dont want newlines in conten
+ts.
    push @contents,$_; # add the line to the buffer
}