#!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; is( 1 + 1, 2, "one plus one is two" ); print "\n"; is( 1 + 1, 11, "one plus one is more than two" );