Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close $client;

ReadMode 0;

#!/usr/bin/perl -w
use strict;
...
            print "$line\n";
        }
}