#!/usr/bin/perl use strict; use warnings; use lib '/opt/scripts/SOAP/lib'; use Test; print Test::return1(), "\n";