#! perl -w
#use strict;
use Inline::Files -backup;

print <INLINE>;
seek INLINE, 0, 0;
print INLINE   for (1..10);

__INLINE__
10
9
8
7
6
5
4
3
2
1

##</code><code>##

C:\test>inline
10
9
8
7
6
5
4
3
2
1
seek() on unopened filehandle INLINE at
 e:/Perl/site/lib/Inline/Files/Virtual.pm line 227.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.
print() on unopened filehandle INLINE at C:\test\inline.pl line 14.

C:\test>type inline.pl
#! perl -w
use strict;
use Inline::Files -backup;

print <INLINE>;
seek INLINE, 0, 0;
print INLINE   for (1..10);

__INLINE__
10
9
8
7
6
5
4
3
2
1

C:\test>

##</code><code>##

#! perl -w
#use strict;
use Inline::Files -backup;

print <INLINE>;
#seek INLINE, 0, 0;
open INLINE, ">$INLINE" or die $!;
print INLINE   for (1..10);

__INLINE__
10
9
8
7
6
5
4
3
2
1

C:\test>inline
10
9
8
7
6
5
4
3
2
1
Use of uninitialized value in concatenation (.) or string at C:\test\inline.pl line 7.
Use of uninitialized value in substitution (s///) at
 e:/Perl/site/lib/Inline/Files/Virtual.pm line 120.
Use of uninitialized value in substitution (s///) at
 e:/Perl/site/lib/Inline/Files/Virtual.pm line 120.

C:\test>type inline.pl
#! perl -w
#use strict;
use Inline::Files -backup;

print <INLINE>;
#seek INLINE, 0, 0;
open INLINE, ">$INLINE" or die $!;
print INLINE   for (1..10);

__INLINE__
10
9
8
7
6
5
4
3
2
1
__INLINE__
12345678910

C:\test>

##</code><code>##

C:\test>inline
10
 | 9
 | 8
 | 7
 | 6
 | 5
 | 4
 | 3
 | 2
 | 1
Use of uninitialized value in concatenation (.) or string at C:\test\inline.pl line 8.
Use of uninitialized value in substitution (s///) at
 e:/Perl/site/lib/Inline/Files/Virtual.pm line 120.
Use of uninitialized value in substitution (s///) at
 e:/Perl/site/lib/Inline/Files/Virtual.pm line 120.

C:\test>type inline.pl
#! perl -w
#use strict;
use Inline::Files -backup;
local ($,=' | ', $/="\n");

print <INLINE>;
#seek INLINE, 0, 0;
open INLINE, ">$INLINE" or die $!;
print INLINE  for (1..10);

 | __INLINE__
10
9
8
7
6
5
4
3
2
1
 | __INLINE__
12345678910

C:\test>