open my $input_file, '<', $input_filename or die "Cannot open input file $input_filename:  $!.\n";
while (my $input_line = <$input_file>) {
	chomp $input_line;
	print "[$input_line]\n";
}
close $input_file;