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>