lib/perl5db/t/test-a-statement-1

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 while (my $l = <DATA>) {
   7     chomp $l;
   8     print "$l\n";
   9 }
  10
  11 __DATA__
  12 123456789012 This is a test
  13 3456789012345This is another test
  14 6789012345678This is yet another test
  15 9012345678901Is this yet another test?
  16 234567890123 Yes, this is another test.
  17 4567890123456I think this is a test.
  18 7890123456789Now is the time.
  19 0123456789012For all good men.
  20 3456789012345To come to the aid party.
  21 678901234678 This is the tenth line.
  22