Help for this page

Select Code to Download

Select or download this

use CGI qw(:standard);

...
while (<$file_name>) {
    print F;
}