Help for this page
#!/usr/bin/perl ... close TEST; <STDIN>;
#!/usr/bin/perl use warnings; ... close IN; <STDIN>;