Select Code to Download

#!/usr/bin/perl

use strict;
...

close($in);
close($out);

PPPPP
XXXXX is my name
...
XXXXX is what I play
KKKKK
NNNNN

KKKKK
UUUUU
BBBBB
NNNNN