Select Code to Download

#!/usr/bin/perl

system("clear");
...
    system("cat chatlog.txt");
    system("sleep 3");
    }

#!/usr/bin/perl

system("clear");
...
system("read $in");
system("echo "$in" >> chatlog.txt);
}