#!/usr/bin/perl -w use strict; use warnings; require "test2.pl"; test2();