Select Code to Download

open (DAT, "+>>$file") or die "$!";

  DB<1> open $fh, '+>>', 'test.dat'                                   
+                                                                     
+           
  DB<2> if ( eof $fh ) { print "Don't try to read, you're at the end!\
+n" }                                                                 
+           
...
0  'First Line'
1  'Second Line'
2  'Last Line'