my $file = shift || 'E:/path/to/dummy1.html';
open INFILE, '<', $file, or die "$!: can't open $file\n";