Select Code to Download

#!/usr/bin/perl -w

use strict;
...
        print OUTPUT $buffer;
        }
        close OUTPUT;

  while (<$fh>){
        print;
        }