The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

my$h=open @*ARGS[0];my@l=$h.readline();
my$i;++$i for @l;
say join "",(split "",int(7e10+$i))[1..Inf];