<% 
 $t->eok($0 =~ /transfer2\.inc$/ ? 1 : 0, "\$0 is not correct: $0");
 $t->done; 
%>