Help for this page
#!/usr/bin/perl -w use strict; ... ) { print @details, "\n"; }
#!/usr/bin/perl -w use strict; ... while(my @details = $read_4_lines->()) { print @details, "\n"; }