#! 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>