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