my $ret = test();
print "Test returned $ret\n";

sub test
{
  unlink("t64.test")
    or return 0;
  print "Test completed.\n";
  return 1;
}