open(TEST, "test.txt") or die "oops: $!";
my $text = "";
while(read (TEST, $stuff, 1)) {
  $text .= $stuff;
}

print $text;