#!/usr/bin/perl
use warnings; 
use strict;

do "tests.pl";

sub foo { "foo" }