Select Code to Download

my $line;
open FH,"file.ext" or die $!;
$line=$_ while(<FH>); close FH; #now the last line is in $line
my($id)=split(/\|/,$line);
#now you can use $id+1

my $id;
open FH,"file.ext" or die $!;
...
}
close FH;
#and again you use $id+1