#!/usr/bin/perl -w
use strict;

use Test::More qw(no_plan);

ok(test_foo() eq "bar");

sub test_foo { 
    print "foo";
    return "bar";
}
__OUTPUT__
foook 1
1..1