use strict; use warnings;
open (FH, "save.htm") or die;
while (<FH>) {
	print $., $_;
}