my $file = shift || 'foo.html';
open INFILE, '<', $file, or die "$!: can't open $file\n";