xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-a-statement-1 (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4) 
1*91f110e0Safresh1#!/usr/bin/perl
2*91f110e0Safresh1
3*91f110e0Safresh1use strict;
4*91f110e0Safresh1use warnings;
5*91f110e0Safresh1
6*91f110e0Safresh1while (my $l = <DATA>) {
7*91f110e0Safresh1    chomp $l;
8*91f110e0Safresh1    print "$l\n";
9*91f110e0Safresh1}
10*91f110e0Safresh1
11*91f110e0Safresh1__DATA__
12*91f110e0Safresh1123456789012 This is a test
13*91f110e0Safresh13456789012345This is another test
14*91f110e0Safresh16789012345678This is yet another test
15*91f110e0Safresh19012345678901Is this yet another test?
16*91f110e0Safresh1234567890123 Yes, this is another test.
17*91f110e0Safresh14567890123456I think this is a test.
18*91f110e0Safresh17890123456789Now is the time.
19*91f110e0Safresh10123456789012For all good men.
20*91f110e0Safresh13456789012345To come to the aid party.
21*91f110e0Safresh1678901234678 This is the tenth line.
22*91f110e0Safresh1
23