Select Code to Download

use subs 'open';
sub open {
...
$result = open(TEST, "<", "test.txt");
print $result,$/;
close(TEST);