#!/usr/bin/perl use lib '/home/steve/scripts/lib'; use STEVE::Test qw(&test); test();