Language Basics Perl

open(STDIN, "