#!/usr/bin/perl use warnings; use strict; use Test::More; plan tests => 1; ok(1); plan tests => 1; ok(0);