My page

open(DATA,"myfile") or die "No, can't open the file"; while() { my @elements = split('\|',$_); # do something with the elements here } ##

##

open(INPUT,"myfile") or die "Can't open file";
print "My page";
print "";
while() {
  my @elements = split('\|',$_);
  print ""; 
  foreach my $el(@elements) {
    print "";
  }
  print "";
}
print "$el";