Select Code to Download

#!/usr/bin/perl
use warnings; 
...
do "tests.pl";

sub foo { "foo" }

use Test::Simple tests => 1;
ok( foo() eq 'foo' );
exit;