open(FILE, "<test.txt");
@myfile = <FILE>;
close(FILE);

foreach $myrow (@myfile)
{
$result .= $myrow;
}

return $result;