open($test, "<test.txt") || die("$!\n");